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Umberto Barzaghi 

STATISTICA A UNA 
DIMENSIONE CON IL C64 

Il primo manuale didattico 
espressamente studiato per 
l’apprendimento dei principi 
fondamentali della statistica 
tramite calcolatore. 

Cod. 570A Pag. 172 Lire 17.000 


Rita Bonelli 

COMMODORE 16 PER TE 
BASIC 3.5 

Il primo libro-cassetta sul Com¬ 
modore 16 per imparare il BA¬ 
SIC sul video. 

Con cassetta. 

Cod. 413B Pag 294 Lire 35.000 


John Scriven, Patrick H 

COMMODORE 64 
A SCUOLA 


Imparare è bello se lo si fa div 
tendosi; è il messaggio di que¬ 
sto libro scolastico ma diverten¬ 
te, sul Commodore 64 
Cod. 5 740 Pag. 182 Lire 18.000 


fa testo 


Czes Kosniowski 

MATEMATICA 
E COMMODORE 64 

Un libro per chi vuol saperne di 
più sulle applicazioni matemati¬ 
che del C64, per studiare ma 
anche per divertirsi. 'f 1»1 !• A. 

s .srl » u. ..eoe La biblioteca che 


Totomac 

IL SISTEMA TOTOMAC 
la nuova frontiera del 
totocalcio per C64 

Uomo del nostro tempo, Toto¬ 
mac si affida all'ausilio del com¬ 
puter per individuare le proba¬ 
bilità meno utilizzate dalla mas¬ 
sa dei giocatori, e, avendo ben 
presente i principi della selezio¬ 
ne naturale, cerca di batterli 
con tecniche intelligenti. 

Con cassetta. 

Cod. 576D Pag. 128 Lire 24.000 

Michael Browne 
UNITÀ A DISCHI 
per Personal Computer 

Il libro, destinato a lettori con 
una buona conoscenza di base 
dell'uso di un calcolatore e del 
linguaggio BASIC, descrive il 
funzionamento dell'unità a di¬ 
schi di un personal computer e 
il significato dei comandi relati¬ 
vi, con particolare attenzione 
per le diverse tecniche di ge¬ 
stione dei file su disco. 

Cod. 3 OOP Pag. 158 Lire 15.000 
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SERVIZIO SOFTWARE 

Bit e Personal Software propongono ai 
propri lettori i dischi o le cassette dei 
programmi pubblicati. Uso e descrizione 
dei programmi si trovano sui rispettivi 
numeri delle riviste. 





Bit n* 

Programma 

Sistemo 

Codice 

Sopporto 

38 

Gioco della scimmia 

VIC 20 

VI 381A 

Cassetta 

38 

Spaccamattoni 

Piane! 

Apple II 

AP382B 

Disco 

42 

Apple-Chef 

Apple li 

AP422A 

Disco 

42 

Provariflessi 

VIC 20 

VI421B 

Cassetta 

45 

Tiny FORTH 

Apple n 

AP452A 

Disco 

45 

All Babà 

ZX Spectrum 

SP451B 

Cassetta 

46 

Forzaquattro 

Apple II 

AP462A 

Disco 

48 

Simulavolo 

ZX Spectrum 

SP481A 

Cassetta 

48 

Memory Alfa IV 

C64 

C6481B 

Cassetta 

49 

Scorpion 

Apple U 

AP492A 

Disco 

50 

Fp-Plot 

Apple II 

AP502A 

Disco 

50 

Prima e Terza 

ZX Spectrum 

SP501B 

Cassetta 

61 

Magicatalog 

Apple II 

AP512A 

Disco 

53 

Partita a golf 

VIC 20 

VI531A 

Cassetta 

53 

Analisi numerica 

C 64 

C6531B 

Cassetta 

53 

PL/Bit: il compilatore 

Apple II 

AP532C 

Disco 

54 

Costellations 

Apple II 

AP542A 

Disco 

54 

Come polarizzare 
i transistor col C 64 

C 64 

C6541B 

Cassetta 

58 

Memory Omega I 

C 64 

C6582A 

Disco 

58 

Copy disk per C 64 

C 64 

C6582B 

Disco 

59 

Checksum 64 

C 64 

C6592A 

Disco 

59 

Checksum 64 

C64 

C6591B 

Cassetta 

59 

Data-Bank 

ZX Spectrum 

SP591C 

Cassetta 

60 

Life HGR 

Apple II 

AP602A 

Disco 

60 

Tutti pittori 

C 64 

C6601B 

Cassetta 

60 

Difesa della Terra 

C 16 

C1601C 

Cassetta 

60 

Lost on thè pack 

Sega 

SE601D 

Cassetta 

60 

Setdata e Wordproc 

ZX Spectrum 

SP601E 

Cassetta 

60 

Il Barone Rosso 

T199/4A 

TI601F 

Cassetta 

60 

Word processor 

C 64 

C6602G 

Disco 

60 

Othello 

VIC 20 

VI601H 

Cassetta 

61 

Calcolo enigmatico in Pascal 

Apple II 

AP612A 

Disco 

61 

Disegno di mobili 
componìbili 

C 16 

C1611B 

Cassetta 

61 

Esperimento di Millikan 

C 64 

C6611C 

Cassetta 

61 

Esperimento di Millikan 

C 64 

C6612D 

Disco 

61 

Disegnare in alta risoluzione 

ZXSpectium 

SP611E 

Cassetta 

61 

Printing music 

TI99/4A 

TI611F 

Cassetta 

61 

Musica facile 

Sega 

SE611G 

Cassetta 

61 

VIC-Calc 

VIC 20 

VI612H 

Disco 

62 

Gestione conto/corrente 

C 64 

C6622A 

Disco 

62 

Gioco della tombola 

TI99/4A 

TI621B 

Cassetta 

62 

Aspe: lo Spectrum 
contro la carie 

ZX Sectrum 

SP621C 

Cassetta 


P.S. n* 

Programma 

Sia toma 

Codice 

Sopporto 

3 

La carta del cielo 

Collisione 

Apple II 

AP032A 

Disco 

4 

Interi in precisione multipla 
Grafica 30 

Apple II 

AP042A 

Disco 

5 

Pretty printer 

Shape table 

Apple n 

AP052A 

Disco 

7 

Data base modulare 

Apple n 

AP072A 

Disco 

14 

Tool-Kit 

C 64 

C6I41A 

Cassetta 

19 

Type-Wrtter 

VIC 20 

VI192A 

Disco 

20 

Scopa 

C 64 

C6201A 

Cassetta 


Tutti i dischi • lo cassetto del programmi sono In ▼•adita a L. 15.000 
claacnno. 


Per richiedere i programmi in contrassegno, pagando direttamente al postino la cifra indicata, inviare il seguente tagliando 


Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 

--ixg 


Inviatemi i seguenti nastri e/o dischi con i pro¬ 
grammi pubblicati su Bit - Personal Software 


GRUPPO EDITORIALE JACKSON 


Cori. ! 1 1 1 1 1 1 

iL. 

11151 0 1 0 1 0 1 

r«H 1 1 1 1 1 1 1 

aL. 

i i i i i i 

r.nri 1 ! 1 1 1 1 1 

aL. 

i i i i i i 

Cnd. 1 1 1 1 1 1 1 

a L. 

i i i i ì i 

+ SPESE POSTALI 
(contributo fisso) 


i | 3 | 0 | 0 | 0 | 


Cognome. 

Nome.. 

Indirizzo.. 

CAP. 

Città. 


TOTALE L. I_l_l_I_I_I 


che pagherò al postino alla consegna del pacco 


Firma. 












































Oltre il personal 


L a spettacolare Esposizione mondiale di Tsukuba (Giappone), 

attualmente in pieno svolgimento, ci offre l’occasione di parlare un 
po’ del nostro futuro. 

Le splendide vetrine presentate alla rassegna vogliono celebrare il 
trionfo della scienza al servizio dell’uomo. In quest’ottica, i numerossisimi 
robot impiegati nelle attività più disparate, lungi dal voler simboleggiare una 
ipotesi di automizzazionc del genere umano significano l’esatto contrario: 
delegando a delle macchine attività ripetitive, noiose e pericolose saremo in 
grado di riconquistare una ulteriore fetta di vita da vivere umanamente. 

E perché questo concetto non rimanga fine a sé stesso, ecco che viene 
applicato all’agricoltura. Sono così presentati i frutti dalle dimensioni 
spropositate (ma ottimi come sapore e potere nutritivo), provenienti da 
culture idroponiche controllate da computer. 

Lo scopo dell’operazione è comunque oltre che scientifico anche 
propagandistico. Infatti, l’idea di base è quella di convincere il mondo di una 
supremazia nipponica in campo tecnologico. 

La realtà, invece come ben sappiamo, è alquanto differente, e probabilmente 
continuerà ad esserlo per parecchio tempo soprattutto nei campi chiave. 

A parte il mercato dei componenti e quello dei robot in cui i giapponesi 
recitano un ruolo di primo piano, in altri campi fondamentali quali 
l’informatica, la supremazia statunitense non viene messa in discussione da 
nessuno. 

Motivi storici e geografici (in Giappone non esiste una Silicon Valley 
abitata da una vasta serie di geni del software) fanno si che soprattutto il 
mercato del personal computer sia saldamente in mani americane. 

Bisogna comunque riconoscere che l’idea che qualcuno ancora ha che i 
giapponesi siano solo degli abili copiatori, si sta dimostrando sbagliata: nel 
1984 l’industria giapponese ha registrato un numero di brevetti maggiore di 
quella americana. La maggior parte di questi successi sono stati ottenuti nel 
campo dell’elettronica di consumo; ecco quindi far bella di mostra di sé il 
televisore più grande del mondo o il cinema in cui si proietta il film che può, 
entro certi limiti, essere condizionata dagli stessi spettatori. 

Ma in definitiva come sarà il nostro futuro? Sicuramente a misura d’uomo e 
questo è quello che conta. 

Ma sarà anche spettacolare e ben curato artisticamente perchè, come è noto, 
anche l’occhio vuole la sua parte. 

Avremo quindi una tecnologia avanzatissima, ma dal volto umano. Se tutti 
questi discorsi siano solo demagogia lo sapremo prestissimo, anzi subito: il 
futuro tecnologico, infatti, è già iniziato. 
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Caratteri misteriosi 


Abito a Lanzo in provincia di Torino. 
Frequento la terza media presso il col¬ 
legio Salesiano di Lanzo dove tantissi¬ 
mi miei amici e compagni come me, 
possiedono da Natale, un C 64 c pure 
loro come me possiedono tantissime 
riviste e trovano le mie stesse difficoltà 
nell’eseguire la battitura dei program¬ 
mi di queste ultime. Io, a nome dei 
miei compagni, mi sono preso la re¬ 
sponsabilità di questa lettera. A noi in¬ 
teresserebbe sapere quale rivista inse¬ 
gna come battere i caratteri presenti in 
Personal Software. 


Space Traveller e Frogger per C 64 n. 
2 3 - 


[<i CLR>] 
[<i WHT>] 
[<1 RED >] 

[< 1 CYN > ] 
[<iPUR>] 

[<1GRN >] 
[<1 BLU > ] 

[<1YEL > j 
[<i ARA>] 
[<i MAR>] 


(<i R.C.>] 

[<i G.z>] 
I<iV.C>] 

[<iAZZ>] 

[ <3 CHR$(i66)>] 
[<iHOME>] 
[<4 CRSR D>] 

[ <4 CRSR R > J 
[<4 CRSR L>] 


Fabio Cominato 
Lanqo (TO) 


11 C 64 e i personal Commodore in genere, 
ci hanno sempre dato qualche problema 
per la stampa dei listati. I problemi sono 
dovuti ai tasti grafici e speciali che spesso 
in stampa sono di difficile interpretazione. 
L’esperienza (cioè il numero di lettere rice¬ 
vute) ci insegna che pubblicare listati pro¬ 
dotti direttamente dalla stampante Com¬ 
modore può causare grosse difficoltà a chi 
intende ricopiarli; così sono stati ideati 
vari sistemi per la stampa di listati decodi¬ 
ficati. 

Space traveller e Frogger, ad esempio, so¬ 
no stati listati con uno di questi program¬ 
mi. Il significato della simbologia utilizza¬ 
ta è stato più volte pubblicato in numeri 
precedenti della rivista, ma lo ripetiamo 
volentieri per chi non lo conosce. 

Tutti i tasti grafici e speciali sono stati 
racchiusi entro le parentesi quadre e tra i 
simboli di minore e maggiore. 

Inoltre un numero, precisa quante volte 


occorre digitare il tasto indicato. Ad esem¬ 
pio [ < 1 Wht > | significa che occorre digi¬ 
tare una volta il tasto 2 contemporanea¬ 
mente al tasto Ctrl (il cursore diventa bian¬ 
co)» [ < 4 Crsr D>] = 4 volte il tasto di 
spostamento verso il basso (Down) del 
cursore e così via. Per i caratteri grafici 
viene presentato il codice ASCII corri¬ 
spondente: occorre consultare il manuale 
del C 64 per sapere a quale tasto corrispon¬ 
de. Ad esempio [ < 3 Chr$(i66)> ] signifi¬ 
ca che occorre digitare 3 volte il simbolo 
grafico che si ottiene premendo contem¬ 
poraneamente il tasto -f e il tasto Commo¬ 
dore. Da questo numero di Personal Sof¬ 
tware adottiamo un nuovo sistema di co¬ 
difica ideato dai nostri colleglli di Super- 
Commodort. La legenda è consultabile in 
una tabcllina che verrà pubblicata in ogni 
numero della rivista. Inoltre la stampa ver¬ 
rà realizzata mediante una stampante a 
margherita che consentirà di migliorare 
notevolmente la qualità. Questo sistema 
sarà utilizzato per produrre i listati di tutti 
i Commodore, compreso il C 16. 



Programmi Mio cercasi 


Una domanda da girare alla rivista Per¬ 
sonal Software. 

Quando vi ricorderete che in Italia (e 
forse anche fuori) vi sono dei possesso¬ 
ri di Mio che aspettano famelici ed im¬ 
pazienti di vedere (e magari con relati¬ 
ve spiegazioni) qualche programma 
frutto di altrui fatiche? 

Grazie per l’ospitalità. W l’Mio e l’Oli- 
vetti. P.S.: scherzi a parte, continuate 
pure cosi che va bene lo stesso. 

Caiella Marco 
Ponte S. Giovanni (PG) 

Appelli di questo tipo ne arrivano parec¬ 
chi: questo è uno dei più simpatici e lo 
pubblichiamo volentieri. 

In passato, per altre macchine, i risultati 
erano stati incoraggianti. 

Forza allora utilizzatori di Olivelli Mio; 
inviateci i vostri programmi! Anche se, ci 
scusi Signor Caiella, va bene aspettare il 
frutto delle altrui fatiche, ma qualcosina si 
potrebbe anche farla in proprio. O no? 
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Ecco l'elenco completo dei lOO 
Jacksomani,f ortunati vincitori 
del concorso abbonamenti Jackson '85. 


CONGRATULAZIONI!!! 



Airoldi Marco 
Via. R. Fellsattl, 5 
44100 Ferrara 
Aliboni Enrico 
P.zza d. Repubblica, 19 
27026 Garlasco (PV) 

Amabili Stefania 

Via M. Bartolottl, 8 

48023 Marina di Ravenna (RA) 

Alestandrelli Fabio 

Vlo Fano, 35 

601 28 Ancona 

Antolini Mariano 

Via Isnardi, 32/19 

16016 Cogoleto (GÈ) 

Antonelli Antonio 
Via Adriatico Vico X, 8 
66036 Or sogna (CH) 

Bandello Melide 
Via Pasublo, 4 
37045 legnago (VR) 

Barzaghi Giovanni 

Via S. Stefano, 83 

20057 Vedano al lombro (MI) 

Boschiera Bruno 

Vlo Rizzos 

33091 Castelnuovo Del Friuli (UD) 
Basile Modesto 
Via L Sturzo, 39 
67100 L’Aquila (AQ) 

Beccar! Alberto 
Via XXV Aprile 
46010 Broda Clsonl (MN) 
Benedetti Ario 
Via Pigafetta, 32 
00154 Roma 
Biancheri Giovanni 
Via S. Rufino, 16 
16040 Lelvl (GE) 

Brizzi Andrea 

V.le Europa, 18 

39100 Bolzano 

Burzagli Laura 

Via Trovarsi, 7 

50127 Firenze 

C.B.L. Compulers s.n.c. 

Via S. Carlo, 13 

98060 S. Angelo di Brolo (ME) 

Cacudi Alessandro 

Via Benanduccl, 6 

72021 Francavllla Fontana (BR) 

Careddu Mauro 

Via Is Mlrrlonls, 95 

09100 Cagliari 

Carettoni Roberto 

Via Europa, 21 

20010 Pogliano Mil. (MI) 

Caporale Enzo 
Via Ten. Vitti, 93 
70043 Monopoli (BA) 

Casali Aldo 
P.zza Calazzo, 3 
20124 Milano 


Cassai Fulvio 

Via Papa Giovanni XXIII, 36 
20097 Molegnano (MI) 
Ceccato Giovanni 
Via Pocinotll, 4 

36060 Romano D’Ezzelino (VI) 
Chiavieri Renato 
P.zza Mazzini, 20 
44030 Serravalle (FE) 

Chillà Aldo 
Via Verdi, 6 

50055 Lastra a Signo (FI) 
Cogitali Francesco 
Via Friuli, 22 
20092 Cinlsotlo B. (MI) 

Cursaro Paolo 
Vìa Nazionale, 100 
84040 Capaccio Scalo (SA) 
D’Amico Michele 
Via Giolto-P.co Gabriella 
81100 Caserta 
De Carlo Franco 
Via Bertola, 9 
10121 Torino 
Di Stefano Gaetano 
Vlo Scarcella, 67 
95030 Troppeto (CT) 

De Marzo Silvio 
Via Napoli, 5 
89024 Pollstena (RC) 

Fabbretti Giuseppe 
Via Delle Baleniere, 92 
00121 Ostia Udo (Roma) 
Fabbri Fabio 
Via Celllni, 16/C 
57023 Cecina (LI) 

Fantechi Renzo 
Via Forlivese, 29 
50065 Pontassleve (FI) 

Farroni Pierlugi 
Via Borgo S. Lorenzo, 2 
62020 Loro Piceno (MC) 
Fogliano Pierluigi 
Via Capecelolro, 22 
20148 Milano 
Galliano Bruno 
Via G. Ferraris, 39 
15100 Alessandria 
Gavinelli Sandro 
Via Libertà, 52 
28043 Bellinzago (NO) 
Ghezzo Guglielmo 
Via dei Pini, 58 
45010 Rosolina (RO) 

Giordono Giancamillo 
Via M. Auslliatrice, 36 
10152 Torino 
Grilli Giuliano 
Via DI Mezzo, 33 
41032 Cavezzo 


Guerrini Roberto 
Via Pascoli, 3 

53027 S. Qulrlco D'Orda (SI) 

Jannoni Sebastianini Giulio 

Via Livorno, 89 

00162 Roma 

I.T.I.S. "A. Volta 

P.zza S.M. della Fede, 16 

80141 Napoli 

I.T.I. di Castelfranco Veneto 
Via del Carponi, 19 
31033 Castelfranco V. (TV) 
I.P.S.I.A. Giorgi’’ 

Via Tanaglio, 53 
31100 Treviso 
Lonza Dino 
Via Virgiliana, 3 
46100 Mantova 
Lenza Pietro 
Via degli Eucalipti, 14 
84100 Salerno 
Levi Moise 
Vlo Sommartlnl, 37 
20125 Milano 
Lignocchi Roberto 
Via B. Bonlnl, 1 1 
25127 Milano 
Loretelli Albertino 
Via dei Villini, 23 
04011 Aprllio (LT) 

Lunghi Giuseppe 
Vlo Gramsci, 5 
26013 Crema (MI) 

Luparia Renato 
Via Vallescura, 185 
15030 Conzano (AL) 

Mangiaracina Antonio 

Vlo Vili. Messina, 5 

92018 S. Margherita di Bellco (AG) 

Marcelli Rossella 

Via G. Nodi, 1 4 

401 39 Bologna 

Marchi Raffaele 

Via Metouro, 38 

65010 S. Teresa di Spoltore (PE) 

Martini Francesco 

Via Passo del Turchino, 60 

001 39 Roma 

Micro Control sne 

Via Claudia, 4557 

41056 Sovignono S/Panoro (MO) 

Monfaperto Giuseppe 

Via dello Liberazione, 43 

20090 S. Maurizio al L. (MI) 


Morgano Oresto 
Via Nazionale, 1 27 
94010 Calascibetto (EN) 

Musacchia Benedetto 
Via Terra Sonta, 92 
90141 Palermo 
Natalini Simone 
Via Ciurlai, 25 
56013 Marina di Pisa (PI) 

Nocera Gaspare 
Vlo Edif. A 36 
21020 Ispra (VA) 

Obertino Silvio 
Via Vallo Soana, 59 
10085 Pont Canavese (TO) 

Olivari Claudio 

Vlo Piave, 6 

46034 Governolo (MN) 

Olmi Monica 
Via Pietro Donati 

26013 S.M. della Croce • Crema (CR) 

Pagnini Marco 

Via Partigiani, 15 

61100 Pesaro 

Pala Bruno 

Via Matteotti, 33 

09026 San Sperante (CA) 

Pennestre Claudio 

Via C. Covour, 21 

34077 Ronchi dei Legionari (GO) 

Perpignani Andrea 

Via Tuberose, 8 

20146 Milano 

Piana Guido 

Via Petrarca, 39 

07021 Arxachena (SS) 

Pizzironi Luigi 

Via Passino, 34 

70125 Bari 

Poli Carlo 

Via Stradella, 1 

20129 Milano 

Pool Informatica 

Via Emilia S. Stefano, 9/c 

42100 Reggio Emilia 

Priotti Gabriele 

Via Pozioni, 2 

28025 Gravellona Toce (NO) 
Rapaccini Silvio 
Viale R. Margherita, 84 
57025 Piombino (LI) 

Ritarossi Mario 

Via Cerreto di Spoleto, 48 

00181 Roma 

Rossi Alessandro 

Vlo Yuri Gagarin, 5/2 

40044 Pontecchio Marconi (BO) 

Rossi Guido 

P.zzo Vittorio Emanuelo II, 5 
50065 Pontassleve (FI) 


Russo Enrico 

Via Cacciapuotl, 58 

84014 Giuliano (NA) 

Sammarco Giovanni 
Via del Faro, 72 
74020 San Vito (TA) 

Sardano Filippo 
L.go Veneziani, 16 
70043 Monopoli (BA) 

Satema di G.AL. F.lli Grillo 
Via Milano, 473 
13069 Vigliano Blellese (VC) 
Schiesaro Roberto 
Via Porta Po, 47 
45100 Rovigo 
Scola Livio 
Villaggio Riviera, 35 
32010 Farro D’Alpago (BL) 

Scotta Eligio 
Via Castello, 65 
1 2039 Verzuolo (CN) 

Sesso Sergio 

Via Gramsci, 42 

20099 Sesto S. Giovanni (MI) 

Sestito Aurelio 

Via Martelli, 1 4 

88064 Chlaravalle Centrale (CZ) 
Sichel Teresa 

Via Volontari del Sangue, 1 
29010 Pontenure (PC) 

Sparaco Lucio 

Via Aldo Moro, 169 

81055 S. Maria Capua Vetere (CE) 

Talebbe Silvano 

Via Purocelo, 21 

40026 Imola (BO) 

Tornilo Vincenzo 
Via G. D’Agostino, 18 
89029 Taurlanovo (RC) 

Tarzia Simonetta 
Via Tarpi, 17/6 
16141 Genova 
Tincani Daniele 
Via Trieste, 6 

55040 Retignono di Stazzema (LU) 
Tomasella Miguel Angel 

Vlo S. Tiziano, 5 

31020 Zoppò di S. Vendemlano (VI) 

Tuccella Silvano 

Via Madonna d. Misericordia, 12 

66100 Chletl 

Turci Andrea 

Via Dormeletto, 84 

28041 Arona (NO) 

Turnu Efisio 

Via Casaro Bolbo, 16 

09170 Oristono (OR) 

Zattoni Raffaele 
Vlo Palazzolo, 8 
48020 S. Romualdo (RA) 

Zollo Sandro 

Via Monastero, 127/1 

17026 Noli (SV) 














Facciamoli parlare 

L a Wclwyn Systems sta producen¬ 
do in grossi volumi per il merca¬ 
to europeo i sintetizzatori vocali 
Currah nelle versioni adatte per il 
Commodore 64 e lo ZX Spectrum. L’espe¬ 
rienza dell’azienda inglese e la buona 
disponibilità a magazzino dei nuovi pro¬ 
dotti, permettono di prevedere una discre¬ 
ta diffusione degli accessori, lanciati ini¬ 
zialmente con una garanzia piena di 12 
mesi. 

Welwyn Electronics 
Via F. Albani, ) 

20148 Milano 
Tel. 02-490788 



Musica e Commodore 

D alle colonne delle riviste del 
Gruppo Editoriale Jackson si 
parla spesso dell’integrazione 
tra musica e informatica, pre¬ 
sentando e commentando prodotti, che 
realizzano una sintesi tra due mondi molto 
vicini. Uno scoglio da superare è però 
spesso rappresentato dal costo di tastiere 
aggiuntive o software specializzato, non 
sempre abbordabile dall’appassionato. La 
Commodore sembra venire incontro alle 
esigenze dei giovani musicofili presentan¬ 
do due semplici ed economici prodotti che 
consentono di sfruttare il SID del C 64 per 
prendere confidenza con la musica o suo¬ 
nare con il computer. Si tratta di Musico, 
un programma interattivo per imparare a 
leggere e scrivere la musica, sviluppato da 
musicisti del CEPAM (Centro Permanente 
Attività Musicali) di Reggio Emilia, c di 
Music Maker, package che trasforma il 
C64 in una tastiera. Musico è un insieme di 
programmi su floppy che in dieci "sedute”, 
sette lezioni c tre unità di verifica e d’eserci¬ 
tazione, introduce l’allievo ai concetti di 
base dell’acustica e della grammatica musi¬ 
cale. L’interattività del sistema consente di 
scegliere il modo più personale di muover¬ 


si tra lezioni ed esercizi: per evitare noiose 
ripetizioni questi ultimi sono legati all’im¬ 
piego delle funzioni casuali, presentandosi 
cosi come nuovi ogni volta che si usa il 
programma. Altri aspetti particolarmente 
curati di Musico sono la grafica (per la 
rappresentazione di note c pause), il suono 
e la concezione didattica. Questo program¬ 
ma, di produzione totalmente italiana, è 
distribuito dalla Commodore per 75.000 
lire, più IVA. Music Maker offre invece la 
possibilità di suonare direttamente il C 64, 
senza necessità di utilizzare tastiere ester¬ 
ne. Oltre al supporto contenente il pro¬ 
gramma, viene infatti offerta una "tastie¬ 
ra” musicale da applicare su quella alfanu¬ 
merica della macchina c una serie di adesivi 
per consentire anche al principiante di ri¬ 
conoscere le note. Il controllo delle 
possibilità offerte da Music Maker avviene 
attraverso i quattro tasti funzione del 
Commodore 64, secondo modalità che il 
programma stesso si incarica di comunica¬ 
re. E’ possibile inoltre memorizzare se¬ 
quenze di note su cassetta o disco, scriven- 









do separatamente la melodia ed il ritmo. 
Music Maker è in vendita a 5 5.000 lire più 
IVA. 

Commodore italiana S.p.A. 

Via F.l/i Gracchi, 48 
20092 Cini sello Balsamo (MI) 

Tel. 02-618)21 



Hit parade Mastertronic 

L a società che distribuisce i giochi 
prodotti dalla casa di oltremanica 
ha inserito nel proprio catalogo 
una serie di titoli realizzati dalla 
British Telecom. Questi game, della serie 
Firebird, hanno spopolato in Inghilterra e 
pare che siano stati accolti da un buon 
successo anche nel nostro paese, stando 
almeno alle classifiche diffuse dalla Master¬ 
tronic, che vedono per il mese di Marzo il 
nuovo entrato Booty al terzo posto. La 
prima posizione viene lasciata da Chilìer 
che la cede a 198; The day after, un gioco che 
richiede l’attraversamento di 12 territori 
ostili per recuperare l’energia necessaria 
alla sopravvivenza della Terra distrutta. 

Persona 

Vìa A. Mario, rr 
47100 Verona 
Tel. 044-492960 



Plotter a quattro colori 

giunto in Italia il plotter X- 
Y PL-1000 della YF.W, dis- 
tribuito dalla Vianello 
S.p.A.. L’area coperta è di 10 
per 15 pollici su carta o, opzionalmente, su 
lucidi. Sono previste fino a quattro penne 
con diversi colori ed il firmware mette a 
disposizione del programmatore una serie 
di funzioni intelligenti quali cerchi, archi, 
coordinate, caratteri opzionali, simboli e 
vari tipi di linee. 11 PL-1000 può funziona¬ 
re anche come stampante ed è dotato di 




abrasività della dispersione magnetica con¬ 
sente una maggior durata effettiva delle 
testine di lettura/scrittura. 

Capacità massima 500 Kbyte, garanzia illi¬ 
mitata come per tutti i dischi venduti dalla 
casa americana. 

)M Italia S.p.A 

20090 Milano S. Felice - Segrate ( MI ) 

Tel. 02-79492999 



interfaccia seriale RS-232C o parallela a 8 
bit. Il supporto per simboli c comandi 
grafici è opzionale. 

Vianello S.p.A. 

Via Tommaso da Ca^aniga, 9/6 
20121 Milano 
Tel. 02-6996171 



Microdischi 
garantiti a vita 

L a 3M ha avviato la distribuzione 
dei propri modelli di microdischi 
da 3,5”, compatibili con tutti i 
drive che utilizzano questo for¬ 
mato (Apple, IIP, D.G., alcuni MSX). La 
levigatura superficiale del rivestimento 
magnetico garantisce un contatto “ravvici¬ 
nato” tra testina c disco, mentre la bassa 




Stampante “compatibi¬ 
le” dal Giappone 

L a iDP 560 Citizen è un’interessan¬ 
te stampante economica che si 
può collegare, oltre che a tutti i 
computer dotati di uscita seriale 
(RS-232) o parallela (Centronics), anche 
alle macchine Commodore (VIC 20 e C- 
64). Stampa sii 40 colonne in due colori, 
utilizzando carta da 69 mm, alla velocità di 
65 caratteri al secondo. La testina è a matri¬ 
ce di punti, 5 per 7, c può operare anche in 
modo grafico. Pesa 2 kg e ha un ingombro 
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PERSONAL NEWS 



di 24 per 17,6 per 8,2 cm. La versione con 
interfaccia Centronics o attacco Commo¬ 
dore costa 270.000 lire più IVA, mentre il 
modello con interfaccia seriale RS-23 2C ha 
un prezzo di 320.000 lire, IVA esclusa. 

Fan/o/i S.r.!. 

Via Cimabue, 4 
ioi}7 Torino 
Te/. 011-4097)47 



Didattica e computer 

I l Cineca, centro di calcolo interuni¬ 
versitario di Bologna, ha organizzato 
una serie di corsi e di seminari sulla 
progettazione, realizzazione e revi¬ 
sione critica di software didattico. Dopo le 
giornate di Marzo, il corso viene replicato 
a Settembre, in due parti: la prima dal 9 al 
13, l’altra dal 23 al 27. Oltre agli argomenti 
previsti, verrà dato ampio spazio alle eser¬ 
citazioni pratiche, ed ogni partecipante 
verrà dotato di un proprio strumento. Il 
costo complessivo è di 1.200.000 lire, che 
viene ridotto del 60% ai docenti delle 
università e delle scuole pubbliche. 

Cineca 

Via Magnanelli, 6/) 

400)) Casa lecci) io di Reno (BO) 

Tel. 041-776441 (Do/t. Ivan Grossi) 


no, edito dalla JCE. Disponibili anche una 
serie di accessori prodotti da costruttori 
inglesi indipendenti, reperibili in Italia 
presso gli importatori autorizzati, alcuni 
dei quali sono stati da noi già citati in 
queste pagine. 

Rebi/ Computer 

Viale Matteotti, 66 

20092 Cini sello Balsamo ( Mi ) 

Tei. 02-6181801 



L’Apple Ile va da solo 


A quasi un anno dalla sua diffusio¬ 
ne sul nostro mercato l’Apple 
Ile viene completato dall’an¬ 
nuncio (con disponibilità imme¬ 
diata) del visore a cristalli liquidi, che per¬ 
mette di utilizzare il compatto computer 
Apple senza necessità di monitor o video 
casalinghi. Il Fiat Panel Display è un po’ 


altri accessori quali le batterie ricaricabili. 
Le caratteristiche tecniche sono queste: 80 
colonne per 24 righe, risoluzione di 560 
per 192 pixel, peso 1,2 kg, controlli di 
contrasto e luminosità. 

Apple Computer 
Palalo Q8 - Mi/ano/iori 
20089 Rodano (MI) 

Tel. 02-8242146 



Ti leggo la mano... 

F orse sta per finire l’era dei badge, 
quelle tesserine plastificate che 
consentono l’accesso ad alcuni 
luoghi riservati, permettendo l’a¬ 
pertura di certe porte automatiche al solo 



personale autorizzato. Dagli USA arriva la 
notizia dell’installazione di un sistema ba¬ 
sato sul riconoscimento delle impronte di¬ 
gitali, che permette un livello di sicurezza 
non raggiungibile con i tradizionali mezzi 
in uso. Realizzato dalla Identix di Palo 
Alto, il sistema di sicurezza elettronico che 
riconosce le impronte digitali è stato insta¬ 
llato ... Provate a indovinare? Ma si, pro¬ 
prio al quartier generale dell’F.B.I. al deci¬ 
mo piano del J. Edgar Hoover Building! 

Identix lncorporated 
2442 Watson Court 
Palo Alto - CA 94)0) 



Il QL avanza 

I n vendita da Gennaio in versione ori¬ 
ginale inglese, al prezzo di 1.149.000 
lire più IVA, il Sinclair QL è fornito 
insieme a quattro programmi applica¬ 
tivi che consentono di sfruttare al meglio le 
potenzialità della macchina costruita attor¬ 
no al Motorola 68008. Corredato da certifi¬ 
cato di garanzia italiano valido in tutti i 
centri autorizzati, viene commercializzato 
dalla Rebit Computer, una divisione della 
GBC. E’ pronto anche il manuale in italia- 



caruccio, 1.290.000 lire più IVA, ma è mol¬ 
to interessante per usi professionali e di¬ 
dattici che possono richiedere una certa 
autonomia d’uso, da realizzare anche con 
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JACKSON 


La biblioteca che fa testo. 


COMMODORE 64 

Il libro apre nuovi orizzonti a tutti co¬ 
loro che sono interessati alla pro¬ 
grammazione in linguaggio macchina 
del COMMODORE 64. 

Con cassetta 

Coi. 5720 Pag. 208 Lire 29.000 

Clivo Prigmore 

IL BASIC IN 30 ORE 
PER SPECTRUM 

Questo semplice corso di autoistru¬ 
zione insegna a programmare, e un 
programma ha sempre bisogno di 
due ingredienti, un linguaggio e una 
struttura: dunque questo libro non 
insegna solo il BASIC, ma anche co¬ 
me si organizza correttamente un 
buon programma. 

Cod. 501B Pag. 360 Lire 40.000 


» 


Al CONFINI 
DELLO SPECTRU 
Applicazioni avanzate 

Un esame attento dei listati consenti¬ 
rà al lettore di apprendere i 'segreti' 
della programmazione strutturata e 
migliorare notevolmente le proprie 
capacità di programmatore. 

I programmi presentati vanno dagli 
arcade più famosi, tra cui il celebre 
'Spectrum Invaders’ ai programmi di 
utilità più interessanti, dai giochi 
d'azzardo ai programmi didattici, dai 
programmi funzionali a quelli di ma¬ 
tematica e di giochi di strategia. 

Con cassetta 

Cod. 414B Pag. 180 Lire 28.000 


David Lawrence 

LINGUAGGIO 
MACCHINA DEL 


Rodnay Zaks 

IL TUO PRIMO 
PROGRAMMA IN BASIC 

La diffusione del BASIC per la sua 
semplicità e quasi 'naturalezza' di 
programmazione fa si che una cultu¬ 
ra generale sull'informatica e la sua 
applicazione non può prescindere da 
una conoscenza di base di questo 
linguaggio. Questo lo scopo del li¬ 
bro: permettere anche a chi ha sol¬ 
tanto una cultura di base, di capire 
che cos'è il BASIC e come si usa. 
Cod. 507B Pag. 216 Lire 19.500 


Czes Kosniowski 

MATEMATICA E 
COMMODORE 64 

Tutte le funzioni matematiche dispo¬ 
nibili sul C64 sono qui descritte, ed il 
loro uso è illustrato con programmi 
che possono essere utilizzati dal let¬ 
tore all'interno dei suoi, per partico¬ 
lari applicazioni. 

Il libro contiene anche informazioni e 
programmi su altri argomenti, come 
i codici e la crittografia, i numeri ca¬ 
suali, le serie, la trigonometria, i nu¬ 
meri primi e l’analisi statistica dei 
dati. 

Con cassetta 

Cod. 5700 Pag. 160 Lire 24.000 


Mike Grace 

ADVENTURE E 
COMMODORE 64 

Un manuale per ideare e utilizzare 
programmi di Adventure basati 
esclusivamente sul testo. 

Una progettazione modulare del pro¬ 
gramma rende più, facile la compren¬ 
sione della struttura. L'abilità nella 
programmazione avrà modo di emer¬ 
gere durante la costruzione graduale 
dell’Adventure, per modificare il pro¬ 
gramma dimostrativo, o addirittura 
per costruirne uno nuovo. 

Con cassetta 

Cod. 571D Pag. 240 Lire 35.000 

Rita Bonelli 

COMMODORE 16 
PER TE: BASIC 3.5 

È un libro di introduzione al BASIC 
CI 6 con il classico taglio didattico 
Bonelli. Adatto per la Scuola media 
inferiore e per chi non conosce l'in¬ 
formatica. 

La cassetta allegata ai libro contiene 
diverse lezioni, una per ogni capito¬ 
lo, che devono essere lette prima del 
capitolo relativo. 

Con cassetta 

Cod. 413B Pag. 296 Lire 35.000 
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RAM test 

Controlliamo se ci sono difetti 
nella RAM del nostro Commodore 

di Paolo Agostini 


C apita a tutti di pensare prima 
o poi: "Ma funziona davvero 
bene la memoria del mio 
computer?". In genere ci si 
accorge del malfunzionamento della 
memoria quando accade di inserire u- 
na stringa, per esempio: A$ = "abcde” 
e alla richiesta di visualizzazione della 
stringa si ottiene qualcosa come “a & 
c)e" o una serie di segni senza senso. 
Ma com'è possibile controllare la pre¬ 
senza o meno di difetti? Col BASIC si 
tratta di un’impresa ardua e lunga, in 
quanto si deve effettuare un test sulla 
memoria stessa che contiene il pro¬ 
gramma in linguaggio BASIC. Per far 
questo sarebbe necessario modificare i 
puntatori della memoria BASIC spo¬ 
standoli più in alto e si dovrebbe far 
funzionare il computer ininterrottamen¬ 
te perlomeno un giorno intero per per¬ 
mettergli di completare il programma. 


Per questa ragione si deve necessaria¬ 
mente ricorrere al codice macchina, ve¬ 
loce e di facile implementazione, e che 
ha inoltre il pregio di poter essere me¬ 
morizzato in una locazione di memoria 
al di fuori della memoria RAM che dovrà 
essere sottoposta al test. 

Il programma in linguaggio macchina 


qui presentato effettua una serie di test 
sulle singole locazioni di memoria RAM, 
a partire dalla locazione 2048 (esadeci- 
male $0800) fino alla 40959 (esadeci- 
male $9FFF). Ciò permette di controlla¬ 
re che i chip costituenti la memoria del 
Commodore 64 esplichino la loro im¬ 
portantissima funzione senza difetti che 


Listato 1 - Il programma sorgente In BASIC. 

100 REM RAM-TEST DI P. AGOSTINI/PADOVA 19 
85 

110 PRINTCHRS(147)[<1CRSR D>]ATTENDERE 
PREGO" 

120 DATA 169,147,032,210,255,169,000,141, 
116,194,153 

130 DATA 141,117,194,032,119,194,013,032, 
032,032,138 

140 DATA 032,032,032,032,032,032,032,032, 
042,042,084 

150 DATA 032,082,065,077,032,084,069,083, 
084,032,128 

160 DATA 042,042,013,032,032,032,032,032, 
032,032,065 

170 DATA 032,032,032,032,068,073,032,080, 
046,032,203 

180 DATA 065,071,079,083,084,073,078,073, 
013,013,120 

190 DATA 013,032,081,085,069,083,084,079, 
032,080,126 

200 DATA 082,079,071,082,065,077,077,065, 
032,067,185 

210 DATA 079,078,084,082,079,076,076,065, 
032,067,206 

220 DATA 072,069,032,076,065,032,013,032, 
077,069,025 

230 DATA 077,079,082,073,065,032,082,065, 
077,032,152 

240 DATA 070,085,078,090,073,079,078,073, 
032,083,229 

250 DATA 069,078,090,065,032,069,082,082, 
079,082,216 

260 DATA 073,046,013,032,068,065,080,080, 
082,073,100 

270 DATA 077,065,032,076,069,032,076,079, 
067,065,126 


280 DATA 090,073,079,078,073,032,068,073, 
032,077,163 

290 DATA 069,077,079,082,073,065,032,013, 
032,068,078 

300 DATA 065,032,050,048,052,056,032,065, 
032,052,228 

310 DATA 048,057,053,057,032,086,069,078, 
071,079,118 

320 DATA 078,079,032,082,073,069,077,080, 
073,084,215 

330 DATA 069,032,013,032,067,079,078,032, 
085,078,053 

340 DATA 032,086,065,076,079,082,069,032, 
078,085,172 

350 DATA 077,069,082,073,067,079,044,032, 
080,079,170 

360 DATA 073,032,083,073,032,013,032,067, 
079,078,050 

370 DATA 084,082,079,076,076,065,032,067, 
072,069,190 

380 DATA 032,084,065,076,069,032,086,065, 
076,079,152 

390 DATA 082,069,032,083,073,065,032,013, 
032,069,038 

400 DATA 070,070,069,084,084,073,086,065, 
077,069,235 

410 DATA 078,084,069,032,080,082,069,083, 
069,078,212 

420 DATA 084,069,032,078,069,076,076,065, 
032,077,146 

430 DATA 069,077,079,082,073,065,046,013, 
032,065,089 

440 DATA 084,084,069,078,068,069,082,069, 
044,032,167 

450 DATA 080,082,069,071,079,046,013,141, 
169,032,014 

460 DATA 133,251,160,255,162,255,202,208, 
253,136,223 
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RAM test 


COMMODORE 64 


Seguito listato 1. 

470 DATA 208,248,198,251,165,251,208,240, 
160,004,141 

480 DATA 169,000,153,251,000,200,192,005, 
208,248,146 

490 DATA 169,147,032,210,255,032,119,194, 
032,032,198 

500 DATA 032,032,032,032,032,032,040,095, 
032,076,179 

510 DATA 079,067,065,090,073,079,078,069, 
032,083,203 

520 DATA 079,084,084,079,032,084,069,083, 
084,041,207 

530 DATA 128,169,255,141,116,194,032,154, 
194,169,016 

540 DATA 170,141,116,194,032,154,194,169, 
085,1 41 ,1 16 

550 DATA 116,194,032,154,194,169,000,141, 
116,194,030 

560 DATA 032,154,194,169,147,032,210,255, 
173,117,203 

570 DATA 1 94,208,1 1 7,032,1 19,194,0.1 3,01 3, 
032,084,238 

580 DATA 069,083,084,032,084,069,082,077, 
073,078,219 

590 DATA 065,084,079,032,083,069,078,090, 
065,032,165 

600 DATA 069,082,082,079,082,073,032,013, 
013,032,045 

610 DATA 083,080,069,071,078,069,082,069, 
032,073,194 

620 DATA 076,032,067,079,077,080,085,084, 
069,082,219 

630 DATA 032,069,032,032,082,073,065,067, 
067,069,076 

640 DATA 078,068,069,082,076,079,032,013, 
032,080,097 

650 DATA 069,082,032,067,079,078,084,073, 
078,085,215 

660 DATA 065,082,069,032,073,076,032,076, 
065,086,144 

670 DATA 079,082,079,046,013,141,160,000, 
162,040,034 

680 DATA 169,042,032,210,255,202,208,248, 
096,000,182 

690 DATA 032,119,194,084,069,083,084,032, 
084,069,082 

700 DATA 082,077,073,078,065,084,079,046, 
013,013,098 

710 DATA 076,065,032,077,069,077,079,082, 
073,065,183 

720 DATA 032,082,065,077,032,082,073,083, 
085,076,175 

730 DATA 084,065,032,068,073,070,069,084, 
084,079,196 

740 DATA 083,065,046,013,141,076,044,194, 
000,000,150 

750 DATA 000,104,133,002,104,133,003,162, 
000,230,103 

760 DATA 002,208,002,230,003,161,002,041, 
127,032,040 

770 DATA 210,255,162,000,161,002,016,237, 
165,003,187 

780 DATA 072,165,002,072,096,000,234,032, 
1 75,1 94,01 8 


790 DATA 032,098,195,032,185,194,032,175, 
194,032,145 

800 DATA 169,195,032,216,194,096,000,169, 
008,133,188 

810 DATA 252,169,000,133,251,096,000,160, 
000,173,210 

820 DATA 116,194,145,251,132,253,165,252, 
133,254,103 

830 DATA 032,249,194,164,253,200,016,237, 
230,252,035 

840 DATA 165,252,201,160,208,227,096,000, 
160,000,189 

850 DATA 132,253,165,252,133,254,177,251, 
205,116,146 

860 DATA 194,208,071,032,249,194,164,253, 
200,016,045 

870 DATA 235,230,252,165,252,201,160,208, 
225,096,232 

880 DATA 000,169,019,032,210,255,169,032, 
032,210,104 

890 DATA 255,169,036,032,210,255,165,254, 
032,019,147 

900 DATA 195,165,253,032,019,195,096,072, 
074,074,151 

910 DATA 074,074,032,030,195,104,041,015, 
201,010,008 

920 DATA 176,004,009,048,208,002,105,054, 
076,210,124 

930 DATA 255,096,000,000,032,119,194,019, 
017,017,237 

940 DATA 017,017,017,017,017,017,017,017, 
032,069,237 

950 DATA 082,082,079,082,069,032,078,069, 
076,076,213 

960 DATA 065,032,076,079,067,065,090,073, 
079,078,192 

970 DATA 069,032,032,160,169,255,141,117, 
194,032,177 

980 DATA 003,195,076,234,194,000,169,019, 
032,210,108 

990 DATA 255,162,005,169,017,032,210,255, 
202 208 235 

1000 DATA 248,032,119,194,032,082,073,069 
,077,080,238 

1010 DATA 073,077,069,078,084,079,032,077 
,069,077,203 

1020 DATA 079,082,073,065,032,082,065,077 
,032,067,142 

1030 DATA 079,076,032,086,065,076,079,082 
,069,032,164 

1040 DATA 068,073,032,013,160,169,036,032 
,210,255,024 

1050 DATA 173,116,194,032,019,195,096,169 
,019,032,021 

1060 DATA 210,255,162,005,169,017,032,210 
,255,202,237 

1070 DATA 208,248,032,119,194,032,067,079 
,078,070,103 

1080 DATA 082,079,078,084,079,032,077,069 
,077,079,224 

1090 DATA 082,073,065,032,082,065,077,032 
,067,079,142 

1100 DATA 076,032,086,065,076,079,082,069 
,032,068,153 

1110 DATA 073,032,032,032,013,160,169,036 
,032,210,021 
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potrebbero pregiudicare il corretto fun¬ 
zionamento dei programmi. 

Come si effettua il test della memoria 
RAM? Semplicemente memorizzando 
nelle singole celle di memoria un valore 
numerico e accertandosi poi che tale 
valore numerico sia effettivamente pre¬ 
sente in esse. Se una delle celle presen¬ 
ta un valore diverso, essa è chiaramen¬ 
te difettosa. Il programma inserisce nei 
byte componenti la memoria RAM, dei 
pattern di byte ben precisi che consen¬ 
tono di effettuare un test di ogni bit sia 
allo stato logico 0 che allo stato logico 
1 . 

Generalmente i programmi che effet¬ 


Numero 

Numero 

esadecimale 

binarlo 

SFF 

11111111 

SAA 

10101010 

$55 

01010101 

$00 

00000000 


tuano il test della RAM hanno il difetto di 
"scrivere" il valore nella cella di memo¬ 
ria e di "leggerlo" poi a pochi millise¬ 
condi di distanza: con tale metodo si 
possono accertare solamente gli errori 
più grossolani del sistema. Il program¬ 
ma presentato in queste pagine, invece 
riempie dapprima tutta la memoria RAM 
disponibile per poi passare a controlla¬ 
re le singole celle di memoria a parecchi 
secondi di distanza, per cui se un difetto 


esiste, questo ha maggiori possibilità di 
manifestarsi sulla lunga distanza. Per 
"ritardare" l'azione di scrittura e suc¬ 
cessiva lettura del velocissimo linguag¬ 
gio macchina è stata inserita una routi¬ 
ne che stampa sullo schermo la loca¬ 
zione di memoria sotto test in codice 
esadecimale (che ha un'aria più "pro¬ 
fessionale") 

Se il programma trova locazioni di me¬ 
moria difettose, ne stampa il numero 
sullo schermo in codice esadecimale e 
alla fine del test stampa sullo schermo 
un messaggio indicante che la memoria 
RAM non ha superato il test. 
Probabilmente il vostro computer lo su¬ 
pererà con facilità ma se qualcuno è 
curioso di vedere cosa succede qualora 
il computer abbia qualche difetto nella 
memoria RAM, si posizioni il program¬ 
ma in linguaggio macchina nella cor¬ 
retta zona di memoria e si diano i se¬ 
guenti comandi in modo diretto: 

POKE 49875,161: POKE 49908,161: SYS 
49152 (RETURN) 

Così facendo il programma tenta di 
“scrivere" anche nelle locazioni di me¬ 
moria dell'interprete BASIC che sono 
notoriamente “read-only", per cui 
quando andrà a rileggerle troverà un 
valore differente da quello che ha tenta¬ 
to di inserire e darà l'avviso di errore. 

Il listato presentato in queste pagine è 
un cosiddetto "BASIC Loader", vale a 
dire un programma sorgente in lin¬ 


guaggio BASIC che ha tre funzioni ben 
definite. Il compito principale che tale 
programma si propone è quello di "po- 
kare" nella porzione di memoria adatta 
i singoli valori costituenti le istruzioni in 
linguaggio macchina per il micropro¬ 
cessore 6510. La seconda funzione del 
programma in BASIC è quella dell'auto¬ 
controllo e - se trova un errore in una 
riga di dati ne informa immediatamente 
l'operatore - indicandogli quale è la riga 
che necessita di correzione. La terza e 
ultima funzione che adempie il pro¬ 
gramma in BASIC è quella di salvare sul 
supporto magnetico prescelto (nastro o 
disco) il solo programma in linguaggio 
macchina (mentre il BASIC Loader - se 
non viene espressamente salvato a cu¬ 
ra dell'operatore - viene distrutto dallo 
stesso programma in linguaggio mac¬ 
china che esso ha generato). 

Una volta che il programma sia stato 
salvato su nastro o disco, potrà essere 
caricato ogni qualvolta lo si vorrà col 
comando Load “RAM test”, 8,1 per il 
disco o Load "RAM test", 1,1 per il na¬ 
stro e verrà posto in funzione col co¬ 
mando Sys 49152 seguito da Return. ■ 


Seguito listato 1. 

1120 DATA 255,173,116,194,032,019,195,096 
,000,000,056 

1130 FORI = 49152T050161STEP10 : X = 0 

1140 FORJ = OTO9: READA:X=X+A:X = X AND 255 

1150 POKEI+J,A:NEXTJ 

1160 RI = PEEK(63)+PEEK(64)*256 

1170 READZ: IFZOXTHENPRINT"ERRORE DATI RI 

GA #"; RI : STOP 

1180 NEXTI 

1190 PRINT"[<1CLR>][<2CRSR D>)I DATI SONO 
CORRETTI." 

1200 PRINT"[ClCRSR D>]SALVO SU NASTRO O D 
ISCO (N/D)? "; 

1210 GETAS:IFA$<>"N"ANDA$< >"D"THENl210 
1220 IFAS = "N"THENAS = "NASTRO":ND=1 
1230 IFAS="D"THENA$="DISCO ":ND=8 
1240 PRINTCHRS(18);A$ 

1250 REM ROUTINE DI SALVATAGGIO 
1260 POKE 781,ND : SYS(65466) 


1 270 : 

1280 NM$="RAMTEST":L=LEN(NMS) 

1290 FORC=1TOL:POKE680+C,ASC(MIDS(NMS,C)) 
: NEXT 

1300 POKE 780,L 

1310 POKE 781,681 AND 255 

1320 POKE 782,681/256 

1330 SYS(65469)ZZZCLOSECLOSECLOSECLOSE 

CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEC 

LOSE 
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Listato 2 - Il programma In Assembly. 


RAM test 


COMMODORE 64 



il 



33 33 33 
88 $ 88$88 


it3 3 £33 
8388 * X R 8 88 SS ® *8 ? 8 
$88S8§§8§88§8§8 83 $85888 8KSSV33V 


t 

3 88 3383*88338 3 
88888 8885^8352888888 


uuuuuuuuoouuuuuuuouuuuoouuuuuuuuuuuuu 



© — fMOTtfì'ar^copvci 
nnnnnF.m^nnó 


58S88S88883*82=222C22228S3SS8iSt58R8S«8a88388 


¥ 


S 

u> 

fi 

h- 

l 



a 

s 


JÌft{«Q « O 

?&P£2. 2- 8 


_ es 

22 SR 32 

W0 •*■> • 




8 

-J 

m 

¥ 



t 33 3 
$3888 *88 

ITtSHJiQQ SQSOSOOQfiOOOSiQCDOOOffiafiOSOQ 
<r 4 00 CO fw <3>f\i ® (SÌ CD <X> ® CO ® <%J <S> ® C\J CD ?5 CO CM ® IN ® 00 


8 t 3 

8 C t t e ££££88 £ 8 £ 83 *8 
88 8 3 58888888$ $588 $8 888 


33 

fcit&S 

$88$ 


-*■■-■■==§SS52225S2SS8S3S822522*5§S!SSS5^SSSSS*S 

uuuSuooouuououuuuuuuuuuuuouuoouuuuuuuuauuuuuuuuouu 
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RAM laal 


COMMODORE 64 




8 t 

- » uso s a 

S?888 5 S 8 S $ VSSS 


o oca 

li ¥ t88S 


t fe 8 tOC 

saie =a gii» sax2 

£88 £85888§8£8£88 


t t 8 tOC 
288 SS gli? 88112 
£88 £8Sg88§8£8£88 





a 

3 


8C88C8 88 88 tttCC 

toat$s stese s seetste stette s stetes?g e astia essa xst2£2 

588888838 £88888 S £s588SJ82ffi88888 8 5882888 *82588838 £8£8 £888883 ?5S 







??????S?8?S«8S5BSfcS£8388l88688Ri:fif:iIR!efcSI!:8S88S8Sfe88S5SR*RSS*S8S82|8Sfc882n22S 

88Ì8888888ÌS8SS88Ì838888Ì8ÌÌ8ÌS88S888ÌSÌÌ8888888888S888888Ì8888888Ì88888888 
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COMMODORE 16 


E 


il classico tabellone elet¬ 
tronico, simile all'ormai fa¬ 
moso VisiCalc o all'omoni¬ 
mo programma su firmwa¬ 
re del fratello maggiore Plus/4. 

Questo programma vi consente di avere 
a disposizione una matrice su cui inseri¬ 
re dei dati, numerici ed alfanumerici (la¬ 
bel), ed elaborare delle formule. 

Il video è una finestra del tabellone nella 
quale vengono visualizzate 17 righe per 
3 colonne numeriche ed una quarta co¬ 
lonna sul lato sinistro con tre righe sul 
lato superiore contenenti le label alfa- 
numeriche. 

La prima casella in alto a sinistra viene 
invece utilizzata per ricordare con quale 
comando state operando; mentre le ulti¬ 
me quattro righe dello schermo sono 
adibite ai messaggi del sistema ed all'in¬ 
put dei dati. 


Come utilizzare il programma 

Dopo aver dato il Run, vi verrà chiesto 
se dovete caricare dei dati in preceden¬ 
za elaborati e salvati su un file, altrimenti 
occorrerà dimensionare il tabellone: al 
massimo 50 righe per 15 colonne con un 
minimo di 17 righe per 3 colonne. Le 
misure massime sono dettate dalle limi¬ 
tazioni imposte dai 12 Kbyte di memoria 
a disposizione, mentre il formato mini¬ 
mo è quello relativo alla finestra del ta¬ 
bellone sul video. 

Dopo il suddetto dimensionamento, il C 
16 provvederà a visualizzare la griglia 
con le prime 17 righe e le prime 3 colon¬ 
ne a “0”. Dopo di che appariranno sul 
lato inferiore dello schermo: “Spread¬ 
sheet Analysis - System Ready" e “Pre¬ 
mi: l-D-C-G-H-S-B-E- (Muovi Coi Curso¬ 
ri) " ed il C 16 sarà pronto ad elaborare i 
vostri calcoli. 

Per accedere ai comandi disponibili, 
basterà, a questo punto, premere il tasto 
corrispondente alla iniziale del coman¬ 
do desiderato, per passare alla relativa 
routine. 

I comandi sono i seguenti. 

Help - Visualizza, per intero, sulle ultime 
quattro righe del video, tutti i comandi 
disponibili. Premere un tasto qualsiasi 
per ritornare al ciclo principale. 

Blank - Consente di vuotare una casella 
numerica del tabellone, lasciandola 
completamente bianca (senza che ap¬ 
paia alcun dato, e nemmeno lo “zero"). 
E' possibile utilizzare il comando anche 


Super 

Spreadsheet 

Implementiamo anche sul nostro C 16 
un classico tabellone elettronico. 

di Angelo Motta 



per caselle non visualizzate sulla fine¬ 
stra del video. 

Insert - Serve ad inserire i dati numerici 
o alfanumerici, e le formule per i calcoli. 
Dopo aver premuto il tasto I. apparirà in 
fondo allo schermo la scritta “Numero- 
Label-Formula". Premere l’iniziale di ciò 
che si intende inserire e procedere se¬ 
condo quanto successivamente richie¬ 
sto dal programma. 

Bisogna tenere ben presente il modo di 
inserimento delle formule poiché per l'e¬ 
laborazione di queste ultime, è stato uti¬ 
lizzato un metodo del tutto originale, più 
avanti illustrato nel comando Compute. 
Prima di spiegare il metodo da utilizzare 
per l’inserimento delle formule, occorre 


fare una breve premessa su come ven¬ 
gono memorizzati i dati numerici del ta¬ 
bellone. All'inizio del programma è stata 
dimensionata la variabile A (numero ri¬ 
ghe, numero colonne) che rappresenta 
il formato scelto (si veda anche l'elenco 
delle variabili utilizzate). 

Pertanto, la casella 00A è rappresenta¬ 
ta dalla variabile A(00,0); la 01A dalla 
A(01,0); la 00B dalla A(00.1) e così di 
seguito sino alla A(numero righe -1, nu¬ 
mero colonne -1) (numero righe e nu¬ 
mero colonne -1 in quanto il dimensio¬ 
namento inizia dallo zero). Le formule 
vanno inserite utilizzando, quale identi¬ 
ficatore della casella, la rispettiva varia¬ 
bile della matrice, sostituendo alla vir- 
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gola l'apostrofo, poiché, in fase di Input, 
tale carattere non viene riconosciuto se 
non come separatore di dati. 

Esempio: se vogliamo che la casella 03A 
sia uguale alla somma della 00A più la 
01A, dovremo inserire la seguente for¬ 
mula: “ A(03’0) = A(OO'O) + A(01 '0) ". 
Altro esempio: se la casella 00B deve 
contenere la percentuale della 00A ri¬ 
spetto alla 04A, dovremo inserire: 
" A(00' 1 ) = A(00'0)/A(04'0) ★100". 

Si ricorda che la lettera A della prima 
colonna corrisponde allo 0, la.B alM e 
via di seguito. 

Il metodo è abbastanza semplice: dopo 
aver inserito alcune formule ci si accor¬ 
gerà quanto sia facile utilizzare il pro¬ 


gramma. 

Possono essere utilizzate le quattro o- 
perazioni (+ - ★ /) e l'elevazione di 
potenza 

La lunghezza massima accettata di una 
formula è di 60 caratteri; nel caso in cui 
ve ne occorresse una più lunga, la stes¬ 
sa dovrà essere divisa in due. Come per 
il comando Blank è possibile eseguire 
inserimenti anche per caselle non visua¬ 
lizzate sulla finestera. 

Delete - Consente di azzerare una cella 
del tabellone e, in analogia ai comandi 
precedentemente visti, è utilizzabile an¬ 
che per caselle non presenti sul video. 
Goto - Muove la finestra è fa apparire 
nella prima casella numerica la cella 


indicata nella richiesta. Il sistema effet¬ 
tua comunque un controllo e se le rima¬ 
nenti righe e/o colonne del tabellone 
non sono sufficienti a riempire total¬ 
mente la finestra, sposta la casella ri¬ 
chiesta di tante righe e/o colonne in 
modo da poter riempire totalmente il 
video. 

Compute Manda in esecuzione le for¬ 
mule contenute nella matrice R$ (R) ed 
aggiorna il tabellone. 

Come precedentemente annunciato, è 
stato utilizzato il seguente metodo che 
consente di rendere operative le formule 
contenute in stringhe e nello stesso tem¬ 
po avere un notevole risparmio di me¬ 
moria ed una buona velocità di esecu- 


Llstato 1 - Il programma Super Spreadtheet. 

TABELLA DI CONVERSIONE 


(HOME).HOME 

{CLR}.PULIZIA SCHERMO 

(CD).CURSORE IN BASSO 

(CR).CURSORE A DESTRA 

{CU}.CURSORE IN ALTO 

{CL}.CURSORE A SINISTRA 

{SPC}.SPAZIO 

{RVS ON).REVERSE ON 

{RVS OFF}.REVERSE OFF 

(FLASH ON}.FLASH ON 

(FLASH OFF)....FLASH OFF 

(INST ).INSERT 

(WHITE}.COLORE BIANCO 

(RED}.COLORE ROSSO 

(GREEN}.COLORE VERDE 

(BLUE).COLORE BLU 

(ORANGE).COLORE ARANCIO 

(BLACK).COLORE NERO 

(BR0WN).COLORE MARRONE 

(LT.GREEN).COLORE VERDE CHIARO 

(LT.BLUE).COLORE BLU CHIARO 

(PURPLE).COLORE PORPORA 

(YELLOW).COLORE GIALLO 

(CYAN}.COLORE CIANO 

(YL-GRN).COLORE GIALLO-VERDE 

( PINK}.COLORE ROSA 

{BL-GRN}.COLORE BLU-VERDE 

(D.BLUE).COLORE BLU SCURO 


I CARATTERI GRAFICI, OTTENUTI CON LA 
PRESSIONE DEI TASTI ’SHIFT' E 'CBM', 
SONO CODIFICATI IN MODO DA INDICARE IL 
TASTO DA PREMERE ASSIEME A 'SHIFT' O 


'CBM'. ES. IL CUORICINO E' CODIFICATO 
CON (SH S}. 

IL NUMERO DENTRO LE PARENTESI INDICA 
LE VOLTE CHE IL TASTO VA PREMUTO. 

100 GOTO1000 





COLORO,13,5 

C0L0R4,13,5 

DIMR$(200) 


1010 PRINT"{CLR}":CHAR,9,1(BLACKJSPREA 
DSHEET ANALYSIS" 

1020 PRINT: INPUT"(CD)(D.BLUpjDEVI CARICA 
RE UN FILE (S/N)":Q$ 

1030 IFQ$“"S"THEN10000 
1040 INPUT"(2*CD}(BROWNINUMERÒ COLONNE ( 
DA 3 A 15):"jNC 
1050 IFNC<30RNC>15THEN1040 
1060 INPUT"(CD)NUMERO RIGHE (DA 17 A 5 
0):";NR 

1070 IFNR<170RNR>50THEN1 060 
1080 NR-NR-1:NC-NC-1 :R-0 
1090 DIMA(NR.NC),X$(NR),Y$(NC) 

1110 FORt-OTONR:X$(I)-" ":F0RJ«0T 

ONC:A(I,J)“1E36:NEXTJ,I 
1120 FORI"OTONC:Y$(I) » " ":NEXT 

2000 COLORI,1 :PRINT"(CLR}":F0RI-1T038:PO 
KE3072+I,67 :POKE3152+1,67 :POKE3872+ 
1,67:NEXT 

2010 FORI-40T0760STEP40:POKE3072+I,66 : PO 
KE3081+1,66 :POKE3084+I,66 
2020 POKE3093+I> 66 :P0KE3102+1,66 :P0KE311 
1+1,66:NEXT 

2030 POKE3072,112:POKE3081,114:POKE3084, 

114 :POKE3093,1 14 :P0KE3102,114:P0KE3 

111,110 

2040 POKE3152,107:POKE3161,91:POKE3164,9 
1 :P0KE3173,91 :POKE3182,91:POKE3191, 

115 
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COMMODORE 16 


zione. All'inizio del programma è stata 
inserita, dopo la linea 100 Goto 1000, la 
linea 500 composta da 62 caratteri 
(due punti) e da un Return finale (ricor¬ 
diamo che per il sistema operativo il " è 
il carattere utilizzato per separare più 
istruzioni su un'unica linea e non ha 
nessun altro effetto ai fini dell'esecuzio¬ 
ne di un programma). 

Il trucco sta nel sostituire ai caratteri i 
caratteri della formula, contenuta nella 
stringa R, che deve essere elaborata (si 
tenga presente che gli operatori mate¬ 
matici non hanno il codice ASCII dei 
caratteri che li rappresentano - da ciò le 
istruzioni If contenute nel ciclo di con¬ 
versione nella subruotine da 16000 in 


poi). A questo punto basta mandare in 
esecuzione la linea 500, che di fatto è 
diventata una subroutine, per avere e- 
seguito la formula inserita. Come sopra 
evidenziato, i caratteri in più nella 
riga 500, non hanno nessun effetto e 
vengono saltati sino al raggiungimento 
della istruzione Return. 

Con questo sistema si utilizza un'unica 
linea che conterrà, di volta in volta, tutte 
le formule presenti nel programma. 
Save - Consente di salvare i dati del 
tabellone per poterli riutilizzare succes¬ 
sivamente. Il caricamento dei dati viene 
eseguito nella fase iniziale del program¬ 
ma previa conferma nella richiesta del 
Load. 


End - Fine lavoro. 

Tasti cursore - Muovono la fine¬ 
stra/video di una casella nella direzione 
del tasto cursore premuto. Analogo al 
comando Goto il sistema controlla se 
sono stati raggiunti i bordi del tabellone, 
nel qual caso annulla l'effetto del co¬ 
mando. 


Avvertenze 

Le caselle della finestra/video (sia nu¬ 
meriche che alfanumeriche) sono for¬ 
mate da otto caratteri e, pertanto, sia in 
fase di inserimento (Label) che in quella 
di stampa (Label e Numeri), il sistema 


2050 P0KE3872,109 :POKE3881,1 13:POKE3884, 
113:POKE3893,1 13:P0KE3902,1 13:POKE3 
911,125 

2060 CHAR,10,1,"(RVS 0N}LB":CHAR,2,2,"LA 
BEL(RVS OFF)" 

2070 GOSUB4000 

3000 M'$-"IDCHGBS(CL}(CR}{CU}{CD}":A$="": 
D0UNTILA$-"E" 

3010 CHAR,2,22,"(YELL0W)SPREADSHEET ANAL 
YSIS - SYSTEM READY" 

3020 CHAR,1,23,"PREMI:I-D-C-H-G-B-S-E-(T 
ASTI CURSORE)" 

3030 TRAP3800:GETKEYA$:Z-INSTR(M$,A$):G0 
SUB5000 

30140 IFZ<8THEN3080 

3050 X-X-(A$="{CU)"ANDX+16<-NR)+(A$-"(CD 
}"ANDX>0) 

3060 Y-Y-(A$*="(CL)"ANDY+2<-NC)+(A$-"(CR} 
"ANDY>0) 

3070 G0SUB4000 : GOTO3010 
3080 ONZGOSUB8000,9000,16000,6000,14000, 
15000,7000 
3090 LOOP 

3100 COLORO,1 :COLOR4,1 : COLORI,3:PRINT"{C 
LR}" 

3110 CHAR,9,10,"(RED)SPREADSHEET ANALYSI 
S" 

3120 CHAR,12,12,"SYSTEM CL0SED" 

3130 END 

3800 G0SUB5000:CHAR,0,22,"":PRINTERR$(ER 
),EL 

3810 G0SUB12010 :RESUME3000 
4000 PRINT"(BLACK)":CHAR,13,1,Y$(Y):CHAR 
,22,1,Y$(Y+1):CHAR,31 ,1,Y$(Y+2) 

4010 PRINT"(BLACK)":CHAR,13.1,Y$(Y):CHAR 
,22,1,Y$(Y+ 1 ):CHAR,31 ,1,Y$(Y+2) 

4020 POKE3172,(Y+129):POKE3l8l,(Y+130):P 


0KE3190,(Y+131) 

4030 F0RI-0T016:CHAR,1,3 + I,"(BLACK)"+X$( 
X+I) 

4040 Z$-STR$(X+I):IFLEN(Z$)-2THENZ$-"0"+ 
RIGHT$(Z$,1) 

4050 CHAR,10,3+1,"(RVS 0N}"+RIGHT$(Z$,2) 
+"(RVS OFF}":W-Y:GOSUB5500 
4060 CHAR,13,3+1,Z$:W-Y+1 :G0SUB5500 
4070 CHAR,22,3+I,Z$:W-Y+2:G0SUB5500 
4080 CHAR,31,3+1»Z$:NEXT:RETURN 
5000 CHAR,1,1," " 

5020 F0RN-3912T04072:POKEN,32:NEXT: RETUR 
N 

5500 Z$«STR$(ABS(INT(A(X+I,W)))) 

5510 IFLEN(Z$)<8THENZ$-" "+Z$:G0T05510 
5520 Z$-RIGHT$(Z$,8) 

5530 IFA(X+I.W)>1E35THENZ$-" " 

5540 IFA(X+I,W)<0THENZ$»"(RED)"+Z$:ELSEZ 
$■"(BLACK)"+Z$ 

5550 RETURN 

6000 CHAR,1,1,"(YELL0W)(RVS 0N}**HELP**( 
RVS OFF)" 

6010 CHAR,0,21,"(RVS ONJCOMANDI(RVS OFF) 
: (RVS 0N)I(RVS OFF)NSERT-(RVS 0N)D 
(RVS OFF)ELETE-(RVS 0N)C(RVS 0FF)0M 
PUTE-(RVS 0N)H(RVS 0FF)ELP-(RVS ON) 
S(RVS OFF)AVE" 

6020 CHAR,0,22,"(RVS 0N)G(RVS 0FF}0T0-(R 
VS 0N)B(RVS 0FFJLANK-(RVS 0N)E(RVS 
OFF)ND-((RVS 0N)MU0VI COI TASTI CUR 
SORE(RVS OFF})" 

6030 CHAR,0,24,"PREMI UN TASTO PER CONTI 
NUARE" 

6040 GETKEYA$:GOT05000 
7000 INPUT"(CLR)(2*CD}(BLACK)NOME DEL FI 
LE DA REGISTRARE:";F$ 

7010 INPUT"(CD)IL NOME E' ESATTO (S/N)"; 
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provvede automaticamente a control¬ 
larne la lunghezza. 

Le label superiori agli otto caratteri ven¬ 
gono ridotte a tal misura, mentre per 
quanto riguarda i dati numerici, pur 
mantenendo inalterato il valore degli 
stessi, viene visualizzata soltanto la par¬ 
te intera sino ad un massimo di otto cifre 
(dall'unità alle decine di milioni - max 
99.999.999). Esempio: se inserite il nu¬ 
mero 1,35 il sistema visualizzerà sola¬ 
mente l'I; se invece inserite 123456789, 
vedrete solamente le ultime otto cifre e 
precisamente 23456789. 

Nel primo caso basterà inserire una 
formula che moltiplichi per 100 il valore 
della casella per vederne anche la parte 
decimale; nel secondo caso dovrete di¬ 
videre il valore della casella per 10. Va 
comunque segnalato che, a parte la 
limitazione per la parte decimale dei nu¬ 
meri, valori superiori ai 99.999.999 non 
sono poi di così facile utilizzo. 

• I numeri sono visualizzati in nero se 
positivi e rosso se negativi; pertanto, a 
meno che non abbiate una stampante a 
colori, dovrete effettuare una routine di 
stampa che provveda a far comparire il 
segno (meno) davanti ai numeri ne¬ 
gativi. 

• Per ritornare al menu da un qualsiasi 
comando chiamato, basta inserire XXX 
alla richiesta posta dal comando stesso. 

• Le formule vengono elaborate in ordi¬ 
ne al loro inserimento; pertanto ricor¬ 
darsi di evitare di inserire formule il cui 
calcolo dovrà essere svolto dopo l'ela¬ 
borazione di eventuali formule inserite 
successivamente. A tal riguardo si prov¬ 
veda con il comando Insert - opzione 
Modifica Formula, a variarne l'ordine di 
esecuzione. 

• Nel ciclo principale è stata inserita 
l'istruzione Trap 3800 che provvede ad 
intercettare eventuali errori rimandan¬ 
do l'esecuzione del programma alle li¬ 
nee 3800-3810 che segnalano, nelle ulti¬ 
me righe dello schermo, il tipo di errore 
commesso e la linea del programma 
dove si è verificato. Nel caso in cui il 
programma dovesse bloccarsi (ad e- 
sempio basta premere il tasto Stop due 
volte consecutivamente) basterà digita¬ 
re in modo diretto l’istruzione Goto 2000 
per farlo ripartire mantenendo inalterati 
i dati sino a qual momento presenti. 

Per risparmiare spazio in memoria e dar 
posto ad un numero maggiore di formu¬ 
le da inserire, sono state omesse tutte le 
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Rem descrittive dei vari blocchi compo¬ 
nenti il programma. Ecco di seguito l'a¬ 
nalisi dello stesso. 

REMarks 

500 - Linea importantissima, composta 
da 62 caratteri (duepunti) più un 
Return. Consente l’elaborazione delle 
formule presenti nel tabellone. Da co¬ 
piare tassativamente così com’è com¬ 
posta, altrimenti potrebbero verificarsi 
malfunzionamenti nel programma. 
1000-1120 - Inizializzazione del tabello¬ 
ne: viene richiesto se devono essere ca¬ 
ricati dati già precedentemente elabo¬ 
rati, nel qual caso rimanda alla routine 
di Load alle linee 10000, o altrimenti 
chiede le dimensioni del tabellone (min 
3 x 17 e max 15x50). Le misure massime 
sono dettate dal limite dei 12 Kbyte di 
memoria disponibile; mentre le minime 
dal formato della finestra del video. Se in 
futuro verranno annunciate espansioni 
di memoria, tali limiti massimi potranno 
essere superati. 

Vengono inoltre dimensionate le matrici 
contenenti i numeri del tabellone 
[A(righe/colonne)] e quelle contenenti 
le label alfanumeriche [X$ (righe) e Y$ 
(colonne)]. Nella prima viene inserito il 
numero 1E36 che produce il Blank in 
sede di stampa a video; nelle seconde 
vengono invece inseriti 8 spazi da utiliz¬ 
zarsi come maschera in fase di scrolling 
del tabellone. 

Infine vengono posti a zero il contatore 
delle formule (R) ed i puntatori di stam¬ 
pa a video della finestra (X e Y). 

La matrice R$ (200), dimensionata nel¬ 
la linea 1000, conterrà le formule che nel 
corso del programma verranno inserite. 
Tale dimensionamento a 201 elementi è 
del tutto proforma e fatto esclusivamen¬ 
te per evitare errori nel corso del pro¬ 
gramma in quanto il numero delle for¬ 
mule che il programma può contenere, 
dipende sia dalla grandezza del tabello¬ 
ne che dalla lunghezza della formula 
stessa. Indicativamente, con un tabello¬ 
ne di 15 x 50 si possono inserire circa 
100 formule. 

2000-2070 - Viene stampata la griglia 
della finestra e chiama la subroutine 
alla linee 4000-4080 che provvede a 
riempire la finestra con i valori indicati a 
partire dai puntatori (X e Y). 

3000-3138 - Ciclo principale. Viene crea¬ 
to un loop dal quale è possibile uscirne 


solamente inserendo la “E" (End) quale 
comando. La linea 3040 provvede a ri¬ 
cercare all'interno della stringa M$ l'ini¬ 
ziale del comando scelto e ne restituisce 
il numero corrispondente alla posizione, 
che viene assegnato alla variabile 2. In 
base al valore di questa variabile vengo¬ 
no chiamate le subroutine ai vari co¬ 
mandi disponibili (linee 3090) o, se pre¬ 
muto un tasto cursore, viene ruotata la 
finestra/video, previo controllo dei bor¬ 
di: controllo effettuato con i soliti opera¬ 
tori relazionali alle linee 3060-3070. 
3800-3810 - Routine che viene eseguita 
in presenza di un errore nel corso del 
programma, intercettato dal ciclo prin¬ 
cipale con l'istruzione Trap inserita. Vie¬ 
ne evidenziato sul video il tipo di errore 
commesso ed in quale linea si è verifica¬ 
to. 

4000-4080 - Subroutine di stampa dati 
nella finestra/video. 

5000-5020 - Subroutine che effettua la 
cancellazione a video della stringa con¬ 
tenente il comando appena utilizzato, e 
delle ultime quattro righe dello schermo. 
5500-5550 - Subroutine che tramuta un 
dato numerico della matrice del tabello¬ 
ne in stringa per consentire la stampa 
con incolonnamento sulla destra. La 
stringa viene posta ad otto caratteri 
(formato della casella) e viene stampata 
in nero se il numero è positivo o rosso se 
negativo. 

Viene utilizzato questo sistema di inco¬ 
lonnamento, anziché l'istruzione Print 
Using, poiché il numero da visualizzare 
deve essere come massimo di otto lette¬ 
re e, in caso di numero con lunghezza 
superiore, comparirebbero degli asteri¬ 
schi, usando il suddetto comando. 
6000-6040 - Subroutine che effettua il 
comando Help. Vengono visualizzate 
nelle ultime quattro righe dello schermo 
i comandi a disposizione. 

7000-7110 - Subroutine che effettua il 
Save dei dati presenti nel tabellone. Vie¬ 
ne prima di tutto richiesto il nome del file 
da registrare e la conferma dello stesso; 
quindi viene mandato in esecuzione il 
comando e la richiesta, alla fine del sal¬ 
vataggio, se si vuol proseguire con il 
tabellone. La routine è stata predispo¬ 
sta per essere utilizzata con il registrato- 
re; chi disponesse del drive dovrà op¬ 
portunamente variarla. 

8000-8520 - Subroutine di Insert. All'ini¬ 
zio viene richiesto se l'input deve essere 
un Numero, Label o Formula e quindi, in 
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base alla richiesta, si passa ad una delle 
tre sezioni che compongono la routine. 
Nella prima, riguardante i dati numerici, 
il sistema chiede la casella, ne controlla 
l'esistenza, e quindi viene richiesto il va¬ 
lore da inserire che viene immediata¬ 
mente visualizzato se la casella è pre¬ 
sente sulla finestra. 

Nella seconda vengono invece inserite 
le label (sia di riga che di colonna) che il 
sistema provvede automaticamente a 
portare ad otto caratteri, inserendo de¬ 
gli spazi per i dati inferiori. 

Nella terza vengono invece inserite le 
formule ed il programma chiede se l'in¬ 
serimento riguarda una nuova formula 
o una modifica di una già esistente. Se si 


tratta di una nuova, basta digitare la 
formula tenendo presente le modalità di 
inserimento precedentemente riportate 
nell'istruzione Insert: per quanto riguar¬ 
da invece le modifiche è possibile can¬ 
cellare una formula precedentemente 
inserita, o modificarla. 

Con il comando Insert è possibile otte¬ 
nere lo stesso effetto dei comandi Blank 
e Delete. Nel primo caso basta chiedere 
l'opzione Numero ed al valore della ca¬ 
sella inserire "0"; nel secondo caso, 
sempre con l’opzione Numero, alla ri¬ 
chiesta del valore dovrà essere inserito 
un numero superiore a 1E35. Sta di fatto, 
comunque, che i relativi comandi Blank 
e Delete sono più veloci da eseguirsi. 


9000-9030 - Subroutine che provvede 
ad effettuare il comando Delete. 
10000-10080 - Routine di Load di un file 
di dati precedentemente elaborati, al 
termine della quale il sistema salta alla 
istruzione 2000 provvedendo alla stam¬ 
pa della finestra/video. Come preceden¬ 
temente evidenziato per il Save, la routi¬ 
ne è predisposta per il registratore. 
11000-11020 - Subroutine chiamata dai 
comandi Insert-Delete-Goto-Blank che 
controlla la validità della casella scelta. 
12000-12010 - Subroutine che viene 
chiamata quando una casella scelta (si 
veda subroutine precedente) risulta 
non valida e fa apparire la scritta "Ca¬ 
sella inesistente". Viene inoltre creato 


Seguito listato Super Spreadsheet. 

Q$ 

7020 IFQ$<>"S"THEN7010 
7030 0PEN1 ,1 ,2,F$:PRINTiì>1 ,NC:PRINT#1 ,NR: 
PRINT//1 ,R 

7040 F0RI-0T0NR : F0RJ-0T0NC: PRINT//1 ,A(I,J 
):NEXTJ,I 

7050 FORI-OTONR : PRINTf/1 ,X$(I):NEXT 
7060 FORI“OTONC: PRINT//1 ,Y$(I):NEXT 
7070 F0RI“1T0R:PRINTfM ,R$(I):NEXT 
7080 PRINT//1 :CL0SE1 

7090 INPUT"{3*CD)(REDjCONTINUI (S/N):";Q 

$ 

7100 IFQ$-"S"THEN2000 
7110 PRINT" {CLR}" :G0T03100 
8000 CHAR ,1,1,"(WHITE)(RVS ON)»INSERT*(R 
VS OFF)" 

8020 Q$-"":D0UNTILQ$-"XXX" 

8030 CHAR,0,21 ."{WHITEMRVS 0N)L(RVS OFF 
)ABEL-(RVS ON)N(RVS OFFJUMER0-(RVS 
0N} F( RVS OFF J0RMULA-(XXX-ESCE ) ":INP 
UTQ$ :GOSUB5020 
8035 IFQ$O"N"THEN8075 
8040 CHAR,0,21, "CASELLA:":INPUTC$ 

8050 G0SUB11000:IFIN“1THENGOSUB12000:GOT 

08030 

8060 CHAR,0,22,"VALORE:":INPUTC: A (XI ,71 ) 

-C 

8070 G0SUB13000 
8075 IFQ$0"L"THEN8200 
8080 CHAR,0,21."CASELLA DEL LABEL:":INPU 
TP$ 

8090 IFASC( P$)>64THEN81 50 
8100 P-VAL(P$) 

8110 IFP<OORP>NRTHENGOSUB12O00:GOTO8O3O 
8120 G0SUB8500 


8130 X$(P)=LEFT$(P$,8):IFP>-XANDP<X+1 7TH 
ENCHAR,1,3 + P"X,"{BLACK}"+X$(P) 

8140 G0T08200 

8150 P-ASC(P$ )-65:IFP<OORP>NCTHENGOSUB12 
000:GOT08030 

8160 GOSUB8500:Y$(P)=LEFT$(P$,8) 

8170 IFP>=YANDP<Y+3THENCHAR,13+9*(P-Y), 1 
,"(BLACK)"+Y$(P) 

8200 D0WHILEQ$«"F":IFERE(0)>150THEN8240 
8210 CHAR7,22,"(FLASH ONjMANCA SPAZIO IN 
MEMORIA(FLASH OFF)" 

8220 PRINT"{3*CR(MODIFICA UNA FORMULA Gl 
A' INSERITA":GOSUB12010 :Q$-"XXX": EX 
IT 

8240 CHAR,0,21,"(RVS 0N)M(RVS 0FF}0DIFIC 
A 0 (RVS 0N}N(RVS OFFjUOVA FORMULA: 
":INPUTP$:IFP$="M"THEN8280 
8250 G0SUB5020:CHAR,0,21."NUOVA FORMULA: 
":INPUTZ$ 

8260 IFLEN(Z$)>60THENGOSUB5020:PRINT"(FL 
ASH ON{TROPPO LUNGA!(FLASH 0FF)":G0 
SUBÌ 2010:G0T08250 
8270 R-R+1:R$(R)-Z$:EXIT 
8280 IFR-0THENEXIT 
8285 F0RK-1T0R 

8290 G0SUB5020:CHAR,0,23,R$(K):CHAR,0,21 
,"(RVS 0N}D{RVS OFF)ELETE-(RVS 0N)P 
(RVS OFFJR0SSIMA-(RVS 0N)M(RVS OFF) 
ODIFICA" 

8295 GETKEYP$:IFP$-'V"THEN8360 
8300 IFP$O"D"THEN8330 
8310 FORJ-KTOR-1:R$(J)=R$(J+1):NEXT 
8320 R$(R)-"":R-R-1:GOT08370 
8330 INPUTZ$ 

8340 IFLEN(Z$)>60THENGOSUB5020:PRINT"(FL 
ASH 0N}TR0PP0 LUNGA!(FLASH 0FF):G0S 
UB12O1O:GOTO8290" 
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mmm Ritorna in edicola 

■ video basic ■ 

® Il corso più entusiasmante su cassetta * 

■ del Gruppo Editoriale Jackson per Commodore 64, 

VIC 20 e Spectrum ■ 

1 200.000 copie vendute | 

del 1° fascicolo della prima edizione 



Oggi è davvero facile imparare il 
Basic. Con Video Basic il corso su 
cassetta che ti permette di 
rogrammare subito il tuo computer, 
facile: tu chiedi, lui risponde, 
tu impari. Passo dopo passo. 

Sul tuo schermo appaiono le 
domande, le risposte, gli esercizi e 


tu, senza fatica, presto e bene, 
impari a conoscere 
e programmare il tuo computer, sia 
esso un VIC 20, un Commodore 64 o 
un Sinclair. 

Video Basic è in edicola. 

Provalo subito. 

Ogni lezione è uno spettacolo. 


Oggi il Basic si impara così. 

Video Basic, il corso su cassetta per 
parlare subito col tuo computer. 


Video Basic 

per imparare non solo il Basic. 



Un’altra grande idea firmata 

GRUPPO EDITORIALE JACKSON 

Mila no-San Frarxisco-Londra «Madrid 






















Al REGISTRATORI 
CHE NON CARICANO I! 


ora c'e'; 



AZIMUTH 

CONTROLLER 


PERMETTE A CHIUNQUE 
IN BREVE TEMPO, DI TARARE 
PERFETTAMENTE LE TESTINE 
DEL PROPRIO REGISTRATORE 


Distribuito da SOFTY via Longhi 10 20137 Milano 


— 

ATTENZIONE! L'AZIMUT CONTROLLER può essere acquistato anche per corrispondenza. 

Inviando L. 30.000 in contanti o in assegno, in lettera raccomandata munita del 
vostro indirizzo a: SOFTY Casella Postale 10 20090 Rodano Mi. 

N.B. Per pagamenti in contrassegno vi saranno addebitate L. 5000 per spese 
postali. 


Cercasi Distributori per zone libere Tel. (02) 7383251 (4 linee ricerca automatico) 
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8350 R$(K)-Z$ 

8360 NEXTK 

8370 G0SUB5020: EXIT : LOOP :G0SUB5020: LOOP: 
G0TO5000 

8500 INPUT"LABEL:";P$ 

8510 IFLEN(P$)<8THENP$-P$+" ":GOTO8510 
8520 RETURN 

9000 CHAR,1,1,"(D.BLUE}{RVS ON}*DELETE*{ 
RVS OFF)":CHAR,0,21."CASELLA DA ELI 
MINARE(RIGA/COL~XXX=FINE)" 

9010 INPUTC$:IFC$-"XXX"THEN5000 
9020 G0SUB11000:IFIN-1THENGOSUB12000:GOT 
09000 

9030 A(X1,Y1)-0:G0SUB502O:GOSUB13000:GOT 
09000 

10000 INPUT"(CD)NOME DEL FILE DA CARICAR 
E:";F$ 

10010 INPUT’MCDUL NOME E' ESATTO (S/N)" 
iQ$ 

10020 IFQ$O"S"THEN10010 
10030 0PEN1,1,0,F$:INPUTtfl,NC:INPUT01,NR 
: INPUT//I , R : DIMA (NR ,NC),X$(NR),Y$(N 
C) 

10040 FORI-OTONR:FORJ«OTONC: INPUT//1 ,A(I, 
J):NEXTJ,I 

10050 FORI-OTONR:INPUTtfl,X$(I):IFX$(I)-" 
"THENX$(I)-" " 

10055 NEXT 

10060 FORI-OTONC: INPUT//1 , Y$(I ) : IFY$(I )-" 
"THENY$(I)-» " 

10065 NEXT 

10070 F0RI-1T0R:INPUT/M ,R$(I):NEXT 
10080 CL0SE1:GOT02000 

11000 X1-VAL(LEFT$(C$,2)):Y1-ASC(RIGHT$( 
C$,1))-65:IN-0 

11010 IFX1<00RX1>NRORY1<OORY1>NCTHENIN»1 
11020 RETURN 

12000 CHAR,0,24,"{BLACK(CASELLA INESISTE 
NTE1! !" 

12010 FORI«1T01000 :NEXT:G0TO5020 
13000 IFX1<XORX1>X+160RY1<Y0RY1>Y+2THENR 
ETURN 

13020 Z$-STR$(ABS(INT(A(X1,Y1)))) 

13030 IFLEN(Z$X8THENZ$-" "+Z$:GOT013030 
13035 Z$-RIGHT$(Z$,8) 

13040 IFA(X1,Y1)<0THENZ$-"{RED}"+Z$:ELSE 
Z$-"(BLACK)"+Z$ 

13050 IFA(X1,Y1)>1E35THENZ$=" " 

13060 CHAR,13+9*(Y1-Y),3+X1-X,LEFT$(Z$,9 

) 

13070 RETURN 

14000 CHAR,1,1,"{YELLOW){RVS ON)**GOTO** 
(RVS OFF)" 


14010 CHAR,0,21."NUOVA POSIZIONE(RIGA/CO 
L-XXX-ESCE):" 

14020 INPUTC$:IFC$-"XXX"THEN5000 
14040 G0SUB11000 :IFIN»1THENG0SUB12000 :GO 
TO14000 

14050 IFX1+16>NRTHENX1-NR'16 
14060 IFY1+2>NCTHENY1=NC*2 
14070 X-X1:Y-Y1:GOSUB5000:GOT04000 
15000 CHAR,1,1,"(GREEN}(RVS ON}**BLANK*( 
RVS OFF)" 

15020 CHAR,0,21."CASELLA DA VUOTARE (RIG 
A/COL-XXX-ESCE):" 

15030 INPUTC$:IFC$-"XXX"THEN5000 
15040 G0SUB11000:IFIN-1THENG0SUB12000:GO 
TO15000 

15050 A(X1 ,Y1 )-1E36:GOSUB5020:GOSUB13000 
: GOT015000 

16000 CHAR,1,1,"(RED)(RVS ONJCOMPUTE*(RV 
S OFF)" 

16010 TRAP16500 

16020 IFR-OTHENCHAR,7,22,"(FLASH ONjNESS 
UNA FORMULA PRESENTE!(FLASH OFF)": 
GOTO16300 

16030 FORI-ITO R:CHAR,5,22,"ATTENDI STO 
ELABORANDO I DATI" 

16040 F0RJ-1T0LEN(R$(I)) 

16050 K«ASC(MID$(R$(I),J)) 

16060 IFK-61THENK-178 
16070 IFK-43THENK-170 
16080 IFK-45THENK-17* 

16090 IFK-42THENK-172 
16100 IFK-47THENK-17Ì 
16110 IFK-94THENK-174 
16120 IFK-39THENK-44 
16130 P0KE4110+J,K:NEXT 
16140 FORJ-LEN(R$(I)) + 1T06l:P0KE41 10+J.5 
8:NEXT 

16170 GOSUB500 
16180 NEXTI 

16190 G0SUB4000:GOT05000 
16300 F0RI-0T01000:NEXT:GOT05000 
16500 GOSUB5020:CHAR,5,22,"(FLASH ON)FOR 
MULA N.":PRINTR"ERRATA-CONTROLLA" 
16510 GOSUB12010:RESUME16190 
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Arrivano i Quaderni Jackson, 
tanti volumi monografici per co¬ 
noscere bene il personal computer 
e l'informatica. 

Nei quaderni Jackson c'è tutto 
quello che è importante sapere 
sui computer, la programmazio¬ 
ne, i linguaggi, il software, le 
applicazioni e i nuovi sviluppi 
dell'informatica. 

Quaderni Jackson: l'informa¬ 
tica a tutti i livelli, in una collana 
aperta, pratica, essenziale, aggior¬ 
nata. 

L'informatica tascabile per chi 
vuole saperne di più e compiere 
così un salto di qualità nel mondo 
di oggi e di domani. 

Ogni mese, 2 volumi. 


Volumi già pubblicali: 

Gianni Giaccaglini 

“Vivere col Personal Computer" 

Paolo Bozzolo 

“Dentro e fuori la scatola" 

Enrico Odetfi 

“Ed è subito BASIC Voi. I” 

"Ed è subito BASIC Voi. Il” 

Paolo Capobussi 
e Marco Giacobazzi 

"A ciascuno il suo Personal" 

Fulvio Francescani 
e Fernando Paterllni 

“To do or not to do" 

In edicola, 
a sole lire 6.000. 



GRUPPO 

EDITORIALE 

JACKSON 


Leoni informatica 

LISTINO PROGRAMMI 

COMMODORE 64 

Programmi In configurazione base (*) 

IVA esclusa 


LINEA TOP 

Prezzo 

Contabilità Generale 

300 000 

Contabilità Forfettaria Visentini 

300 000 

Distinta Base 

350 000 

Condominio New 

350.000 

Gestione Farmacie 

300 000 

Multisystem • Sviluppo sistemi 


Totocalcio • Enalotto Totip 

350 000 

PERSONALI 


Totocalcio a sviluppo colonnare T 

80 000 

Calcolo doll'Equo Canone T 

80 000 

Modello 740 T 

100 000 

Conto corrente 

100 000 

Gestione Conti Casa T 

100 000 

Totoplus T 

100 000 

Impariamo il Basic T 

100.000 

100 Programmi Basic 

80 000 

Rubrica telefonica T 

100 000 

GESTIONALI 


Anagrafiche 

150.000 

Appuntamenti 

100 000 

Mailing List 

100 000 

Scadenzano effetti 

100 000 

Ordini (Cli/For) 

100 000 

Super Mail 

•80 000 

Bolle e Fatture 

2 io 000 

Contabilità Fatture (Cli/For/Gem 

•00 000 

Magazzino e Fatturazione agganciati 

ZOO 000 

Magazzino alfanumerico (600 ari ) 

200 000 

Magazzino Grossisti (2500 art.) 

280 000 

Magazzino Dettaglio (2500 art ) 

280 000 

Magazzino Taglia/col (2500 art.) 

280 000 

GESTIONI SPECIFICHE 


Agenti e Fatture Cli/For 

150 000 

Agenzie immobiliari 

150 000 

Studi Ottici 

200 000 

Studi Dentistici 

200 000 

Hotels e Pensioni 

280 000 

Gommisti 

280.000 

Officine 

280 000 

Tavole Calde 

280 000 

Scadenzario premi e polizze 

150 000 

Librerie e Biblioteche 

120 000 

Studi Medici 

200 000 

Parrucchieri 

280 000 

Clubs Nautici 

280 000 

Ristoranti 

280 000 

Lavanderie 

280.000 

Campeggi 

280.000 

GESTIONE TESTI 


Word Processor III 

100 000 

Easy Script T (Commodore orig.) 

75000 

TECNICI/SERVIZI 


Legge 373 (calcolo isolamenti termici) 

100 000 

Ingegneria civ II (travi intelaiate) 

100 000 

Copia Disco Singolo 

50 000 

Ingegneria civ. 1 (calcoli strutt ) 

100 000 

Computi metrici 

200 000 

Kit allineamonto testine 

45.000 

GESTIONE BANCHE DATI 


The Manager 64 (Commodore orig.) 

100 000 

Super Base (Commodore orig ) 

175 000 

(*) Pei configurazione base si intende: 

Commodore 64, floppy 1541, stampante 

Commodore a 80 colonne. 


1 programmi segnati con la "T“ sono 

disponibili anche su cassetta. 



SAN FRANCISCO LONDRA Mi ANO 


























Super Spreadsheet 


COMMODORE 16 


un ciclo di temporizzazione nella linea 
12010 più volte chiamato nel corso del 
programma. 

13000-13070 - Controlla se la casella 
con la quale si sta operando con i co¬ 
mandi Insert-Blank o Delete, è presente 
sul video, nel qual caso provvede a far 
apparire il valore relativo al tipo di ope¬ 
razione effettuata. 

14000-14070 - Subroutine che effettua 
l'istruzione Goto. 

15000-15050 - Subroutine con il coman¬ 
do Blank. 

16000-16190 - Subroutine che provvede 
ad eseguire il comando Compute. 

Viene dapprima creato un ciclo che 
provvede ad inserire le stringhe nella 
linea 500, rendendo tale riga operativa; 
a chiamarla come subroutine ed infine 
ad effettuare il calcolo. Al termine del 
ciclo viene chiamata la subroutine alle 
linee 4000 che provvede all'aggiorna- 
mento della finestra con i nuovi risultati. 
All'inizio di questa routine è stata posta 
l'istruzione Trap 16500 che intercetta 
qualsiasi errore nelle formule e lo se¬ 
gnala fra le linee 16500-16510 in modo 
che l’operatore possa chiamare l'istru¬ 
zione Insert e controllare tale formula. 

Elenco delle variabili utilizzate 

NR - Numero delle righe (da 17 a 50). 
NC - Numero delle colonne (da 3 a 15). 
A(NR,NC) - Matrice contenente il valore 
delle caselle numeriche del tabellone. 
X$(NR) - Matrice contenente le label al¬ 
fanumeriche delle righe. 

Y$(NC) - Matrice contenente le label 
alfanumeriche delle colonne. 

X - Numero della riga da stampare alla 
prima posizione numerica della finestra. 
Y - Numero della colonna da stampare 
alla prima posizione numerica della fi¬ 
nestra. 

R - Contatore delle formule. 

R$(R) - Matrice contenente le formule 
per i calcoli. 

M$ - Stringa contenente le iniziali dei 
comandi a disposizione. 

XI e Y1 - Coordinate della casella in 
fase di elaborazione dati e comandi. 

IN - Identificatore di errore nella scelta 
della casella. ■ 


Che cosa ha in 



Libreria Pr 
Personal Con 
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più il Personal Computer IBM? 



La Libreria Programmi 
Personal Computer IBM, 
per esempio. 

Il tuo Concessionario IBM per il Personal Com¬ 
puter ha una novità per te: la Libreria Programmi 
Personal Computer IBM. 

La Libreria Programmi Personal Computer IBM 
è uno strumento utilissimo, che ti permette di 
trovare nel modo più immediato i programmi fir¬ 
mati da IBM. Puoi guardarli e confrontarli per ve¬ 
dere subito, fra quelli di uno stesso settore appli¬ 
cativo, quale sia il programma che risponde me¬ 
glio alle tue esigenze di lavoro. 

Ma la Libreria Programmi Personal Computer 
IBM ti dà anche un aiuto in più: con ogni pro¬ 
gramma troverai la brochure che lo riguarda. Ce 
ne sono anche molte altre, che ti illustreranno 
tutto quello che il tuo Personal Computer IBM 
può fare e le sue applicazioni particolari, come il 
Videotel. 

Puoi prenderle e portarle a casa, per leggerle in 
tutta tranquillità e pensare bene alla scelta che 
devi fare. 

E non dimenticare che il Concessionario IBM (gli 
indirizzi sono sulle Pagine Gialle) è un vero 
esperto, che conosce perfettamente il Personal 
Computer IBM ed i problemi della tua attività. 
Potrà consigliarti nel modo migliore nella scelta 
dei programmi e ti illustrerà tutte le possibilità 
che il Personal Computer IBM ti offre, oltre alla 
grande versatilità delle sue prestazioni. 

Per acquisto, consulenza e servizi, puoi anche ri¬ 
volgerti al Negozio IBM Centromilano. 

Allora, non ti pare che il Personal Computer IBM 
abbia veramente qualcosa in più? 


Desidero ricevere: 

□ Informazioni sul Personal Computer IBM ei suoi programmi. 

□ Gli indirizzi dei Concessionari IBM Personal Computer della mia regione 

□ Una visita o dimostrazione pratica di un concessionario 


Nome e Cognome 


Azienda..... 

La mia attività è 


Indirizzo____ 

Spedisci questo tagliando a: IBM Italia 

Direzione Entry Systems 

Casella Post. 137 - 20090 Segrate Milano 


























Un po’ di storia 

I Ching o Libro dei Muta¬ 
menti è un sistema di ora- 
coli che ha origini antichis- 
sime: come il nome fa intui¬ 
re esso è nato in Cina. La tradizione 
attribuisce la base dell'l Ching ad un 
saggio, tal Pao-Hsi, vissuto la bellezza 
di 53 secoli fa. Durante la dinastia degli 
Yin, circa nell’undicesimo secolo avanti 
Cristo, il principe Wen e suo figlio Tan 
inserirono dei loro commenti nel Libro 
dei Mutamenti. Lo stesso Confucio, in 
seguito, studiò ed apprezzò l'I Ching. 
Ma vediamo che cosa ha a che fare 
tutto ciò con le pagine di una rivista 
d’informatica. L’I Ching, come detto, è 
una sorta d'oracolo che risponde alle 
domande di chi lo consulta: esso è for¬ 
mato dall'unione di due simboli, - n e 



I Ching: 
il Libro 
dei Mutamenti 

Interrogate il vostro Texas TI99/4A 
ed ascoltate i suoi consigli 

di Daniela Cerò 


Listalo 1-11 programma I Ching. 

5 DATA 3,4,9,10,13,14,16,17,19,2 
0,23,24,26,27 
10 DATA 13,14,19,20 
15 DIM IC$(64) 

20 CALL CLEAR 
25 RANDOMIZE 
30 C=INT(10*RND)+5 
40 CALL COLOR(2,C,C) 

50 FOR 1=16 TO 17 
60 CALL VCHAR(3,1,42,8) 

70 NEXT I 
80 FOR 1=1 TO 14 
85 READ R 

90 CALL VCHAR(13,R,42,8) 

100 NEXT I 

110 FOR 1=1 TO 4 

115 READ R 

120 CALL HCHAR(R,5,42,3) 

125 CALL HCHAR(R,28,42,3) 

130 NEXT I 

135 CALL HCHAR(16,11,42,2) 

140 CALL HCHAR(17,11,42,2) 

145 CALL HCHAR(18,29,42,2) 

150 CALL VCHAR(14,21,42,2) 

155 CALL VCHAR(15,22,42,2) 

160 INPUT " VUOI QUALCHE SPIEGAZ 
IONE ? ":R$ 

170 IF R$="S" THEN 1000 
175 IF R$="SI" THEN 1000 


180 INPUT "COME TI CHIAMI ?":R$ 
185 CALL SCREEN(6) 

187 CALL COLOR(2,2,6) 

190 CALL CLEAR 

200 PRINT "BENE ";R$ 

205 PRINT "Esponimi il tuo probi 
ema" 

210 PRINT 

215 INPUT " " :P$ 

220 IF LEN(P$)<30 THEN 900 
230 IF P$<>"" THEN 215 
240 PRINT 

245 PRINT "MMMH... HO CAPITO" 

250 PRINT "ORA ATTENDI UN ATTIMO 

E li 
• • • 

254 PRINT 

255 PRINT 

256 PRINT 

270 FOR 1=0 TO 5 

275 RANDOMIZE 

280 A(I)=INT(2*RND) 

290 IF A(I)=0 THEN 300 ELSE 320 

300 PRINT TAB(12); " ** **" 

310 GOTO 330 

320 PRINT TAB(12);"*****" 

330 PRINT 

340 FOR J=I*10 TO 1*10+9 
350 READ IC$(J) 

370 NEXT J 
380 NEXT I 
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I Ching: il Libro dei Mutamenti 


TEXAS TI99/4A 


combinati sei volte tra di loro. In 
tutto ci saranno 64 diverse combinazio¬ 
ni (2 6 = 64) ed una di queste sarà la 
risposta alla domanda formulata. 

La sapienza cinese unita 
alia tecnologia del duemila 

Il metodo di consultazione degli anti¬ 
chi cinesi era piuttosto complesso (una 
scaglia di tartaruga, parecchi steli d'a¬ 
chillea e così via) perciò noi abbiamo 
pensato di semplificarlo usando un 
computer. 

Già, sarà proprio una di queste fredde 
macchine, aggregati di diodi e resisten¬ 
ze, di integrati e condensatori, di fili elet¬ 
trici e di tasti, a dare la risposta ai quesiti 
che verranno formulati. L’home compu¬ 
ter adottato è il TI99/4A della Texas In¬ 
struments ma ogni altro personal va be¬ 


ne, sia per la poca memoria di cui c'è 
bisogno, sia per la facile traduzione che 
può essere fatta dal BASIC di questa 
macchina. Come potete vedere dal li¬ 
stato 1 il programma non è affatto lun¬ 
go; esso è scritto in BASIC normale (non 
esteso) e le istruzioni grafiche sono 
quanto mai ridotte. Crediamo però che 
il bello di questo "pozzo di saggezza" 
stia soprattutto nelle risposte che ven¬ 
gono date, soprattutto se viene fatta 
una cosultazione collettiva, tra amici. 

Il programma 

Diamo, dunque, una rapida occhiata 
al listato; le istruzioni dalla 5 alla 155 
servono per scrivere il titolo del pro¬ 
gramma e dimensionare il vettore ICS in 
cui saranno memorizzati i responsi del¬ 
l’oracolo. Le righe 25-40 scelgono ca¬ 


sualmente un colore tra quelli con codi¬ 
ce 5 e 14. 

Quindi può essere fornita una breve 
spiegazione sul Libro dei Mutamenti e 
sul suo uso per coloro che s'avvicinano 
per la prima volta a questa fonte di sa¬ 
pienza orientale. Dopo di ciò viene chie¬ 
sto il nome e terminata questa opera¬ 
zione l'oracolo si mette a vostra disposi¬ 
zione chiedendovi il motivo per cui lo 
interpellate (180-230); l’esposizione del 
vostro problema può essere lunga 
quanto vi pare. 

Terminata la vostra richiesta, c'è un 
attimo di raccoglimento e dopo di ciò l'I 
Ching darà il suo responso. La pausa è 
stata ottenuta di proposito (270-380) al¬ 
lo scopo di visualizzare un simbolo alla 
volta e nel contempo approfittare per 
leggere una decina dei Data delle righe 
1400-1555 che contengono tutti i 64 re- 


390 

FOR 1=60 TO 63 


930 GOTO 240 

400 

READ IC$(I) 


1000 CALL CLEAR 

410 

NEXT I 


1005 CALL SCREEN(C) 

420 

PRINT 


1007 CALL COLOR(2,2,C) 

430 

PRINT "ECCO IL MIO RESPONSO 

II 


1010 PRINT "L'I CHING e'un antic 
o testo " 

435 

N = 0 


1015 PRINT "cinese,una sorta di 

440 

FOR 1=0 TO 5 


oracolo " 

450 

N=N+A(I)*2~I 


1020 PRINT "che risponde alle do 

455 

CALL SOUND(99,110+1*11,1) 


mande di " 

460 

NEXT I 


1025 PRINT "chi lo consulta. 

465 

FOR 1=0 TO 30 


Il 

470 

CALL SOUND(99,110+1*11,1) 


1030 PRINT "Non bisogna pero'chi 

475 

NEXT I 


edergli " 

480 

PRINT IC$(N) 


1035 PRINT "previsioni metereolo 

485 

1 = 440 


giche o " 

490 

CALL SOUND(150,1,1) 


1040 PRINT "come vincere al toto 

495 

1=1-10 


calcio o " 

500 

IF 1=120 THEN 485 


1045 PRINT "cose simili.Esso può 

505 

CALL KEY(0,X,Z) 


'essere " 

51 0 

IF Z=0 THEN 490 


1050 PRINT "utile nel fare una s 

51 5 

PRINT TAB(60) 


celta o " 

520 

PRINT "BENE (Spero che quant 


1055 PRINT "nel risolvere un'ind 

o dettoti sia di aiuto. 


ecisione " 

Arrivederci a presto 

II 


1060 PRINT "I responsi sono sibi 
llini ma " 

530 

END 


1065 PRINT "degni di un vero ora 

900 

PRINT 


colo ! !" 

91 0 

INPUT "BASTA COSI' ? ":P$ 


1070 CALL KEY(0,X,Z) 

920 

IF P$="N" THEN 215 


1075 IF Z=0 THEN 1070 

925 

IF P$="NO" THEN 215 


1100 GOTO 180 
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Primo Festival Eur 

Ustica 29 Giugno 16 Lu 

isola per fare gr 


Maria Schifano 

È nato in Libia a Homs nel 1934. 
Autodidatta ha esordito 
nell'ambito dell'Informale 
materico con riferimenti alla 
pittura di Foulrier. 

Dal 1962 le prime opere pop 
con l'utilizzazione di immagini 
prese dai mass media. 

Ha fatto parte del gruppo 
romano della pop-art italiana. 

In questi ultimi anni opere come 
inventari della produzione 
precedente e rivisitazioni 
di De Chirico. 



L'opera di Mario Schifano che sintetizzo mare, cielo, sole, computers, che verrà data in omaggio a tutti 
i partecipanti al festival. 




opeo del Software 

glio: ci vuole una piccola 
ande un fèstivàl. 


Il Programma del Primo Festival Europeo del Software 


A 

Ustica, promosso da Finin- 
vest e Italturist, è nato il Centro Archi- 
mede, un'associazione culturale che 
si propone come luogo permanente di 
ricerca e confronto sui temi delle nuo¬ 
ve tecnologie e dell'informatica. 

Quest'anno dal 29 Giugno al 6 Lu¬ 
glio, proprio nell'isola di Ustica, orga¬ 
nizzato dal Centro Archimede, si terrà 
il Primo Festival Europeo del Software 
al quale è possibile partecipare sia at¬ 
tivamente - inviando uno o più pro¬ 
grammi inediti su vari argomenti già 
precedentemente segnalati - o sempli¬ 
cemente in veste di osservatori dei più 
recenti sviluppi nel mondo dell'hard- 
ware e del software. 

Partecipare al Festival di Ustica signi¬ 
fica quindi vivere da protagonisti il 
proprio tempo, aprirsi verso le nuove 
frontiere dell'intelligenza nell'immedia¬ 
to futuro (si calcola che nel 1990 in 
Italia una famiglia su tre avrà il suo 
personal computer), prepararsi ai ra¬ 
pidi imprevedibili sviluppi tecnologici 
di domani. 



29 giugno - sabato / Arrivo od Ustica dei parteci¬ 
panti. Pomeriggio: cerimonia inaugurale e convegno 
su "Mezzogiorno innovazione e nuove tecnologie". 
In serata spettacolo di apertura. 

30 giugno - domenica / Convegno in colloboro- 
zione con la FAST sull'intelligenza artificiale e sistemi 
esperti. 

In serata tavola rotonda sul software italiano. 

1 0 luglio - lunedì / Convegno e presentazione del 
progetto "Esprit" della Comunità Europea in colla¬ 
borazione con il Ministero della Ricerco Scientifico. 

2 luglio - martedì / Convegno sulle prospettive del- 
l'informatico nel settore politico e rapporti sociali in 
collaborazione con il Centro Einaudi di Torino. 

3 luglio - mercoledì / Convegno su "Informatico, 
territorio e casa" in collaborazione con il Censis. 

In serata dibattito sulla difesa ambientale. 


I trasferimenti con occompognotori dolToeroporto ol porto di 
Palermo e viceverso. 

l'ollscofo da Polermo o da Napoli od Ustico e viceverso. Trat¬ 
tamento di pernottamento e mezza pensione negli alberghi e 
di pensione completo nel villaggio Punto Spolmatore. 
Trattamento di solo pernottamento nelle cose private e in ap¬ 
po rtomento. 

Per iscrizioni rivolgersi a: ITALTURIST - Via V. Pisoni, 
Oppure a queste Sedi locali: 

BOLOGNA 051/271203 - 234984 

ROMA 06/6797077 - 6785465 


4 luglio - giovedì / Convegno sullo "Moneta elet¬ 
tronica" in colloborazione con il Banco di Sicilia. 

In serata spettacolo folcloristico. 

5 luglio - venerdì / Convegno sulle "Tecnologie 
per il turismo" in collaborazione con Assicurazioni 
Ticino. 

Nel pomeriggio convegno su "Informatico per il ma¬ 
nager", in collaborazione con Itolware. 

In serata spettacolo con premiazione dei vincitori del 
concorso sul software e assegnazione dei floppy d'o¬ 
ro, d'argento e di bronzo. 

6 luglio - sabato / In mattinolo convegno sulla "Di¬ 
fesa giuridica del software". 

Ogni sera / Musica in pazza, rassegne cinemato¬ 
grafiche e di video-clip. 

Si svolgeranno inoltre le finali del compionolo di vi- 
deooltefico. realizzate in collaborazione con A.I.V.A. 


Supplementi: 

Pensione completa negli alberghi: l. 50.000 
Trasferimento in pullman do Roma a Nopoli in coinodenzo della 
portenzo dell'oliscalo per Ustico: t. 40.000. 

Quoto di iscrizione: l. 100.000 da pagare contemporanea¬ 
mente olla quota di partecipozione. 
lo quota di iscrizione consente lo portecipozione o tutte le ini¬ 
ziative in programma. 


16 Milano-Tel. 02/6704505-6704510 

FIRENZE 055/282680 - 283436 

PALERMO 091/297314 - 261052 


QUOTE DI PARTECIPAZIONE PER L'INTERA SETTIMANA 


SISTEMAZIONE 

DA MILANO 

aereo MI/PA 
e viceversa 
- oliscalo 

DA ROMA 

aeree Romo/PA 
e viceversa 
- otiscofo 

DA NAPOLI 

oliscofo 

DA PALERMO 

aliscafo 

VILLAGGIO PUNTA 
SPALATORE 

SEDE CONGRESSI 

850.000 

750.000 

680.000 

630.0000 

ALBERGO («pò A) 

740.000 

650.000 

550.000 

470.000 

ALBERGO (tipo B) 

640-.000 

550.000 

500.000 

370.000 

ALBERGO (tipo C) 

590.000 

500.000 

400.000 

330.000 

CASA PRIVATA 

480.000 

380.000 

270.000 

' 210.000 

APPARTAMENTO 

580.000 

490.000 

380.000 

310.000 


La quota comprende: 




















Seguilo listato I Chlng. 

1400 DATA "RICETTIVITÀ'.SUCCESSO 
CON L'OBBEDIENZA","SGRETOLAMENT 
0.CERCA DI NON MUOVERTI" 

1405 DATA "UNIONE.SEI VERAMENTE 
SICURO DI TE STESSO ?","CONTEMPL 
AZIONE.LO SCOPO NON E'RAGGIUNTO" 

1410 DATA "ARMONIA.IL RISPETTO G 
ENERA IL RISPETTO","PROGRESSO.E 
SIBITE LE VOSTRE QUALITÀ'" 

1415 DATA "ASSEMBRAMENTO.IL PICC 
OLO E' AIUTATO DAL GRANDE"STAS 
I.MANCA LA COMUNICAZIONE" 

1420 DATA "MODESTIA.BRILLARE MA 
SENZA ABBAGLIARE","LA MONTAGNA. 
CONCENTRAZIONE ERIPOSO" 

1425 DATA "ARRESTO RAPIDO.COLTIV 
ARE UN TALENTO","CRESCITA.OCCORR 
E FERMEZZA E CORREZIONE" 


1430 DATA "PICCOLI ECCESSI.SUCCE 
SSO,MA NELLE PICCOLE COSE","IL V 
IAGGIATORE.RICERCA DI UNACCORDO" 

1435 DATA "INFLUENZA.SAGACITA'IN 
MOLTE OPINIONI","RITIRATA.LA DI 
GNITA'PRIMA DITUTTO" 

1440 DATA "COORDINAZIONE.SAGGEZZ 
A DELLAESPERIENZA","INESPERIENZA 
.INUTILE FARE,SIDEVE RIPETERE" 
1445 DATA "L'ABISSO.LA SINCERITÀ 
'E'DA PREFERIRSI","DISPERSIONE. 
COORDINAZIONE DELLE IDEE" 

1450 DATA "VIA LIBERA.TORNATE AI 
MODI ANTICHI","VERSO LA FINE.I 
GUAI SONO FINITI" 

1455 DATA "OPPRESSIONE.PERCHE TA 
NTE PA-ROLE ?","CONFLITTO.BISOGN 
A SAPERSI FERMARE IN TEMPO" 
1460 DATA "ASCESA.IL FURBO COGLI 



TROVERETE 
NEL PROSSIMO 
NUMERO 


Disegnatore: 

UN PROGRAMMA 
PER MSX 

Easyvideo 

PER C 64 

Agenda 

TELEFONICA 
CON IL CASIO 


Hl-RES PER TI99 

Routine 2 

PERSPECTRUM 

Simulazione 

DINAMICA 
DI FENOMENI 
CONTINUATIVI 
CON ILO 64 


ON 

EOOO©L^ 

DAL 


oDU©» 


Cubo magico 

CON SPECTRUM 

Statistica 
a PIÙ 

DIMENSIONI 
PER APPLE 

Data base 

PER C 16 
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Chlng: il Libro del Mutamenti 


TEXAS TI99/4A 


Seguito listato I Chlng. 

E L'OC-CASIONE","PURIFICAZIONE.E 
SAMINATE BENELE CONSEGUENZE" 

1465 DATA "IL POZZO.AIUTO RECIPR 
OCO E COMPRENSIONE","INSERIMENT 
O.BISOGNA TENTARE RIPETUTAMENTE" 

1470 DATA "PERSEVERANZA.TUTTE LE 
STRADESONO APERTE","FERMEZZA.TE 
NERE GLI OCCHI E LE ORECCHIE BEN 
APERTI" 

1475 DATA "GRANDI ECCESSI.INDIFF 
ERENZA AI COMMENTI","INCONTRO.NO 
N FIDATEVI DEI PIU'FORTI" . 
1480 DATA "RITORNO.L'OSTACOLÒ NO 
N E'POICOSI'IMPORTANTE","ALIMENT 
0.IL PENSIERO ACCRE- SCE L'AZION 
E" 

1485 DATA "INIZIO DIFFICILE.TROP 
PA SPE-RANZA INGANNA","ACCRESCIM 
ENTO.AVANZATE SENZAESITARE" 

1490 DATA "IL TUONO.NON METTETEV 
I IN APPRENSIONE","LA PENETRAZ 
IONE.IL SAGGIO E'PROTETTO DALLA 
LEGGE" 

1495 DATA "DISCIPLINA.UN GRANDE 
PROTET-TO DAI PICCOLIINNOCENZ 
A.LA SCORRETTEZZA PORTA AL DIS 
ASTRO" 

1500 DATA "OSCURAMENTO.PERCHE'AT 
TIRARE L'ATTENZIONE ?","AWENENZ 
A.A VOLTE CI SI DEVEFIDARE DELLE 
APPARENZE" 

1505 DATA "SUCCESSO.FINIRE E'LA 
PARTE ARDUA","LA FAMIGLIA.OGNI 
COSA AL SUOPOSTO" 

1510 DATA "ABBONDANZA.IL MEZZO S 
UCCESSONON BASTA" /'CHIAREZZA.BIS 
OGNA FARE IL NECESSARIO" 


1515 DATA "RIVOLUZIONE.PRIMA AGI 
RE,DOPOPENSARE" /'COMPAGNIA.NON M 
ESCOLATE CICCHE NON SI MESCOLA" 

1 520 DATA "AWICINAMENTO.IL SUCC 
ESSO PUÒ'ESSERE PROWISORIO" , " 
MINORAZIONE.SI STABILIRÀ'UN CERT 
O EQUILIBRIO" 

1525 DATA "RESTRIZIONE.FRENO ALL 
ENTATO PRESTO O TARDI","SINCERIT 
A'.IL SAGGIO CREDE ACOLUI CHE CR 
EDE" 

1530 DATA "LA FIDANZATA (O LA MO 
GLIE). VIRTÙ'DELL'ASTINENZA","SE 
PARAZIONE.LA PREVISIONE CATTIV 
A S'INGANNA" 

1535 DATA "GIOIA.NON DIMENTICARE 
ANCHE IL PIACERE","PRUDENZA.MA 
FORSE LA TIGRE NON MORDE" 

1540 DATA "PACE.FINE DELLE PICCO 
LEZZE EINIZIO DELLE GRANDEZZE"," 
DOMARE.ISPIRARSI AGLI ALTRI" 

1545 DATA "ATTESA.NON FARSI TRAS 
CINARE","RINSAVIMENTO.FORSE LA N 
UBE NON SCOPPIERÀ'" 

1550 DATA "POTENZA.LA FERMEZZA T 
RIONFA","POSSESSO.TENETE BENE I 
FILI IN MANO" 

1555 DATA "APERTURA.SPARPAGLIATE 
E NON AMMASSATE","IL CREATIVO.U 
N CAMBIAMENTO E'SALUTARE" 


sponsi. 

A volte può non apparire molto chiaro 
quello che dice l'I Ching, ma dobbiamo 
sempre rammentare che ci troviamo di 
fronte ad un oracolo, il cui scopo è an¬ 
che indurre coloro che lo consultano ad 
esaminare sé stessi e le cose, partendo 
magari dalla riflessione sui suoi respon¬ 
si (volutamente stringati e sibillini). 

La riga 450 calcola in che posizione del 
vettore ICS si trova la risposta da dare; 
quindi verrà prodotta una serie di suoni 


che durerà finché l’utente non digita un 
qualsiasi carattere che decreterà la fine 
del programma. Come potete vedere è 
tutto molto semplice e lineare e le uni¬ 
che istruzioni che i "non texani" do¬ 
vranno modificare sono le varie Cali 
che agiscono sullo schermo, sul sonoro 
o sul carattere ricevuto o meno. 

Come dettovi in precedenza, noi con¬ 
sigliamo di consultare l'I Ching tra amici 
perchè possono verificarsi responsi 
molto interessanti come quanto è suc¬ 


cesso ad una coppia fresca fresca di 
matrimonio, di nostra conoscenza, ri¬ 
tornati dal loro viaggio di nozze. A "lei", 
che chiedeva informazioni sulla fedeltà 
del marito l'I Ching ha risposto con 
“Progresso. Esibite le vostre qualità", 
mentre per "lui" che domandava come 
sarebbero stati i primi mesi di matrimo¬ 
nio il responso è stato “La fidanzata (o 
la moglie). Virtù dell’astinenza''. Che al¬ 
tro dire?! ■ 
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Alcune note tecniche 

aeromodello a volo vinco¬ 
lato circolare da allena¬ 
mento (U-Control) che per 
brevità chiameremo sem¬ 
plicemente V.V.C., è ancora oggi il mo¬ 
dello ideale per il principiante che desi¬ 
dera avvicinarsi aH'aeromodellismo a 
motore con poca spesa e con buone 
possibilità di pieno successo. 

Vediamo come sono fatti, in linea gene¬ 
rale questi modelli. 

I V.V.C. sono aeromodelli con motore a 
scoppio che vengono comandati per 
mezzo di due cavi di filo d'acciaio che 
muovono, tramite alcuni semplici leve¬ 
raggi, il timone di profondità dell'aereo: 
la traiettoria è quindi circolare, con pos¬ 
sibilità di variare la quota di volo e di 
eseguire alcune manovre acrobatiche 
(compatibilmente alle caratteristiche 
dell'aereo e, soprattutto, alla bravura 
del pilota). 

II pilota guida l'aeromodello per mezzo 
di una manopola, alla quale sono fissati 
i cavi di comando che si innestano in 
una squadretta imperniata alla fusolie¬ 
ra o all'ala del modello (figura 1). 

Quando il pilota piega verso di sé l'e¬ 
stremità superiore della manopola, ele¬ 
va verso l'alto il timone di profondità, 
causando una deportanza sul piano di 
coda e, di conseguenza, fa salire l’ae¬ 
reo. Ovviamente, il movimento contrario 
della manopola abbassa la profondità, 
causando un incremento di portanza 
sul piano di coda che fa picchiare il 
velivolo (figura 2). 

Tanto maggiore è la sensibilità ai co¬ 
mandi dell’aereo, tanto più pronta sarà 
la risposta ai minimi movimenti del polso 
del pilota: ciò comporta la possibilità di 
eseguire manovre rapide e complesse, a 
scapito della facilità di pilotaggio, quin¬ 
di anche un piccolo errore di manovra 
può causare la distruzione del modello. 
In questo programma verrà elaborato il 
progetto di un V.V.C. da addestramento 
(trainer), con comandi non troppo sen¬ 
sibili che “perdonino” eventuali errori di 
pilottaggio grazie a dei tempi di reazio¬ 
ne più lunghi rispetto ai modelli acroba¬ 
tici. 

In un V.V.C. il complesso dei dispositivi 
di comando sono in definitiva la mano¬ 
pola, i cavi, la squadretta di comando e 
la barretta d'acciaio che collega que- 
st'ultima col timone orizzontale. 



Progetto 
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Figura 1 • 
L'aeromodello viene 
guidato per mezzo 
di una manopola che, 
mediante due cavi 
di acciaio, muove 
Il timone di profondità. 



I motori dei modelli V.V.C. sono solita¬ 
mente di piccola cilindrata e non troppo 
spinti come prestazioni, risultando quin¬ 
di anche più economici. 

La fusoliera può essere di tipo a casso¬ 
ne oppure, più semplicemente, ricavata 
da una tavoletta di balsa dura, di 12 
millimetri circa o di altro legno più resi¬ 
stente come obeche o pioppo, natural¬ 
mente di minor spessore. Questo tipo di 
fusoliera anche se esteticamente meno 
valida del tipo cassonato, riduce di gran 
lunga le difficoltà di costruzione e instal¬ 
lazione sia dei comandi, sia del gruppo 
motore-serbatoio. 

Analogo discorso si può fare per l'ala: di 
solito per piccole cilindrate è possibile 
ricavarla da un foglio di balsa sagoma¬ 
to secondo il profilo alare, anche se è 
sempre preferibile l'ala costruita con 
centine di balsa con profilo piano-con¬ 
vesso, con bordo d'attacco rinforzato e 
rivestite con carta-seta pesante o altro 
materiale equivalente. 

II gruppo di superfici di coda viene rica¬ 
vato da una tavoletta di balsa di 3-5 
millimetri di spessore, ricordando che il 
piano di coda e la deriva sono formate 
da due parti distinte: nel piano di coda si 
distinguono una parte fissa (stabilizza¬ 
tore) e una parte mobile (timone oriz¬ 
zontale) incernierate mediante cerniere 
di nylon che si possono trovare in qual¬ 
siasi negozio di modellismo o, al limite, 
mediante cerniere di tessuto incollate ai 
due piani, in modo che il timone di pro¬ 
fondità sia libero di ruotare; nell'impen¬ 
naggio verticale il timone verrà invece 
incollato alla deriva, inclinato di qual¬ 
che grado, verso l'esterno della circon¬ 
ferenza di volo, come verrà indicato dal 
programma stesso. 

Alla fusoliera potrete dare la forma che 


preferite, vincolati solamente dalla lun¬ 
ghezza del braccio di leva, dalla posizio¬ 
ne del centro di gravità e dalla facilità di 
raggiungere gli “organi vitali" dell'ae¬ 
reo per la manutenzione; queste misure, 
cui abbiamo accennato prima, vi ver¬ 
ranno date dal computer dopo averle 
elaborate dai dati in proprio possesso. 
Ricordatevi che il serbatoio del carbu¬ 
rante deve essere del tipo adatto ai 
V.V.C. e deve essere posto alla stessa 
altezza del carburatore del motore, per 
una corretta alimentazione durante il 
volo. 

Come forse avrete già intuito, prima di 
accingervi a progettare e a costruire un 
aeromodello anche semplice come un 
V.V.C., è necessario un minimo di conos¬ 
cenze tecniche e di esperienza o, per lo 
meno, che un amico più esperto di voi, vi 
aiuti nei primi tentativi di volo, assisten¬ 
dovi direttamente “sul campo". 



Infatti costruire un aeromodello non 
comporta grosse difficoltà, special- 
mente se questo modello è stato acquis¬ 
tato, in scatola di montaggio, in un ne¬ 
gozio di modellismo (vi sono molti mo¬ 
delli, di diverse marche, corredati di tutti 
gli accessori e, soprattutto, di dettaglia¬ 
tissime istruzioni per il montaggio), ma, 
una volta giunti sul campo di volo, nor¬ 
malmente capita che, dopo non pochi 
tentativi, il modello non ne voglia sapere 
di partire o peggio ancora, una volta 
decollato ritorni a terra a una velocità e 
a un assetto più vicini a quelli di un 
sasso lanciato in aria, che a quelli di un 
velivolo, trasformando l’aeromodello in 
una scultura astratta di balsa. 

Vi consiglio quindi, prima di intrapren¬ 
dere la progettazione di un V.V.C. con 
questo programma, di leggere qualche 
testo dedicato al modellismo aereo o, 
meglio ancora, di prendere dimesti¬ 
chezza con questo hobby costruendovi 
dapprima un aeromodello ricavato da 
una scatola di montaggio acquistata in 
un negozio (tanto per “farvi le ossa”) e 
poi, in un secondo tempo, prendervi la 
grande soddisfazione di progettare e 
costruire un modello tutto frutto della 
vostra fantasia e ingegno, aiutati nel 
dimensionamento e nel progetto dalla 
“scatola nera" di Sir dive, vero gioiello 


Figura 2 • 
Ecco come 
Il movimento 
del cavi 
di acciaio 
fa variare 
l'Inclinazione 
del timone 
di profondità 
dell'aereo. 


I 









































Il programma 

Il programma “ Progetto e dimensiona¬ 
mento di un V.V.C." vi permetterà di pro¬ 
gettare un aeromodello a volo vincolato 
da allenamento di cilindrata compresa 
tra 1 e 3,5 centimetri cubi inserendo, 
come uniche variabili, la cilindrata e l’a¬ 
llungamento delle superfici (ricordo che 
l'allungamento è il rapporto tra l’apertu¬ 
ra alare e il quadrato delle superfici). 
Questa semplificazione è stata possibile 
perchè possiamo considerare la cilin¬ 
drata di un piccolo motore da V.V.C. 
proporzionale alla potenza erogata, ap¬ 
prossimazione accettabile solo nell’ar¬ 
co di utilizzazione di cilindrata sopra 
menzionata. 

Questa limitazione non dà nessun pro¬ 
blema, perché è sconsigliabile costruire 
modelli da addestramento con cilindra¬ 
te superiori ai 3,5 c.c. 

Impostata la cilindrata, il programma 
ricava il rapporto peso-potenza ottima¬ 
le, quindi il peso totale e la superficie 
alare dell'aeromodello, seguendo alcu¬ 
ne norme generali dettate anche dall¬ 
’esperienza. è chiaro che, noti questi 


dati, basta impostare l'allungamento 
delle superfici per avere tutte le dimen¬ 
sioni necessarie per il disegno dell’ae¬ 
reo. Il programma è stato strutturato a 
pagine; ognuna delle quali tratta un 
particolare aspetto del progetto: vedia¬ 
mo con un esempio come si deve utiliz¬ 
zare il programma. 

All’inizio una schermata introduttiva 
illustra le quattro opzioni che si hanno a 
disposizione durante il programma: 

P - pagina precedente: serve per saltare 
a una pagina ennesima del programma. 
Ovviamente la pagina deve essere una 
pagina precedente rispetto a quella in 
cui ci si trova al momento della richiesta; 
S - pagina seguente: serve per passare 
alla pagina successiva; 

C - copia su carta: serve per avere l’hard 
copy della schermata sulla stampante, 
comando estremamente utile se si vuole 
disporre dei disegni quotati dell'aereo; 
A - abbandono: questo comando bloc¬ 
ca il programma senza cancellarlo. Per 
evitare di fermarlo accidentalmente, vie¬ 
ne richiesta una conferma prima di ese¬ 
guire lo Stop. 

Ogni altro tasto viene disattivato. 


Dopo questa schermata introduttiva 
segue la pagina 1 che, dopo avere ese¬ 
guito il disegno di un motore, chiede la 
cilindrata usata dal modello (che ricor¬ 
do deve essere compresa tra 1 e 3,5 c.c.). 
Eseguito l'input del dato, compare la 
scritta delle quattro opzioni disponibili: 
premiamo S e passeremo alla pagina 2. 
In questa pagina il programma eseguirà 
un primo dimensionamento di massima 
del modello; compariranno, lampeg¬ 
giando per qualche secondo, la cilin¬ 
drata, il peso totale e la superficie alare 
del modello. Una scritta, vicino al diseg¬ 
no in pianta dell’ala, ci avvertirà che 
verrà presa come campione un'ala a 
pianta rettangolare. 

Passiamo alla pagina 3. Qui ci viene 
richiesto l’allungamento: maggiore è 
l'allungamento, maggiore sarà l'apertu¬ 
ra alare a scapito della lunghezza della 
corda media (come mostrato dai diseg¬ 
ni sul video). Per motivi di i esperienza, 
abbiamo limitato la scelta a due soli 
allungamenti. Fatta la scelta comparirà, 
di fianco al disegno corrispondente, il 
valore dell’allungamento scritto con ca¬ 
ratteri inversi. 


Figura 3 - Lo schema del profilo Saint Cyr 52: è uno del tre profili alari piano-convessi proposti dal programma. 
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Seguono le quattro opzioni. La pagina è 
formata da più sottopagine, che vedre¬ 
mo in dettaglio: dopo avere visualizzato 
tutti i dati necessari per il dimensiona¬ 
mento dell'ala, compare il disegno di un 
profilo alare piano-convesso seguito 
dai nomi di tre dei profili più usati: Clark 
X, Clark Y e Saint Cyr 52 (figura 3) prece¬ 
duto ciascuno da un numero. Se desi¬ 
deriamo utilizzare uno di questi profili, 
dobbiamo semplicemente digitare il nu¬ 
mero corrispondente e, dopo aver even¬ 
tualmente copiato sulla stampante la 
pagina, passeremo a una delle sottopa¬ 
gine 4bis con tabulate le coordinate del 
profilo scelto. 

Per disegnare il profilo desiderato u- 
sando i dati contenuti nella tabella, bi¬ 
sogna sapere che i simboli X, Ys e Yi 
rappresentano rispettivamente le ascis¬ 
se, le ordinate superiori e le ordinate 
inferiori del profilo che abbiamo scelto. 
Le quote dei profili sono in millimetri e 
riferite a un profilo di lunghezza stan¬ 
dard di 100 mm. Una volta fatto il debito 
rapporto tra profilo standard e quello 
del nostro modello, si riportano su carta 
millimetrata sopra una retta orizzontale 
i valori di X e, per ciascuna ascissa, le 
coppie di valori delle ordinate; unendo i 
punti cosi ottenuti con un curvilineo, 
otterremo il disegno del profilo deside¬ 
rato (disegno non ottenibile direttamen¬ 
te dallo Spectrum a causa della troppo 
alta definizione dei punti rispetto alla 
risoluzione del computer). 

Stampate le coordinate, passiamo alla 
pagina 5, nella quale lo Spectrum ci 
darà il disegno quotato dell’ala vista 
dall'alto e di fronte. A questo punto co¬ 
nosciamo tutto dell'ala, per cui possia¬ 
mo passare a occuparci del piano di 
coda: la pagina 6 ci mostra per prima 
cosa la superficie totale del piano di 
coda e dello stabilizzatore per poi chie¬ 
derci, con le stesse modalità dell'ala, 
l'allungamento da adattare per gli im¬ 
pennaggi, scegliendo il valore tra i due 
consigliati. Anche qui il valore scelto 
verrà stampato in caratteri inversi di 
fianco al disegno della superficie inte¬ 
ressata. Passando alla pagina 7, il pro¬ 
gramma calcolerà tutti i dati dell'impen¬ 
naggio orizzontale: superficie, allunga¬ 
mento, apertura e corda media. 

Per quanto riguarda il profilo da adot¬ 
tare, è buona norma utilizzare lo stesso 
profilo impiegato per l'ala (come ci viene 
ricordato dallo stesso programma dopo 


avere disegnato un profilo alare piano¬ 
convesso). Stampati i dati (o trascritti su 
un foglio se non si possiede la stampan¬ 
te), passiamo alla pagina 8 che ci dise¬ 
gnerà le tre viste del piano di coda, evi¬ 
denziando nel disegno e nelle quotature 
le due superfici distinte dello stabilizza¬ 
tore e del timone di profondità; anche 
per questo motivo si è reso necessario il 
tracciamento della vista laterale, con 
quotata la frazione di corda spettante al 
timone di profondità. 

Il passo successivo riguarda il dimen¬ 
sionamento degli impennaggi verticali, 
cioè della deriva e del timone verticale. 
La forma degli impennaggi verticali rive¬ 
ste poca importanza nei modelli a volo 
vincolato essendo la stabilità laterale 
assicurata dal vincolo dei cavi. Nel pro¬ 



gramma è stata presa come campione 
una diffusissima configurazione di im¬ 
pennaggi verticali: quella a trapezio-ret¬ 
tangolo. La pagina 9 ci dà dunque tutti i 
dati per il dimensionamento di deriva e 
timone: superficie e apertura, corda mi¬ 
nima e massima nonché la superficie 
della parte mobile. Il computer ci mostra 
anche il disegno di un profilo biconves- 
so-simmetrico senza consigliarne nes¬ 
sun tipo: questo perché solitamente gli 
impennaggi verticali sono ricavati da 
tavolette di balsa semplicemente arro¬ 
tondate sul bordo d'entrata e appuntite 
su quello d'uscita. 

Le tre viste quotate degli impennaggi a 
pagina 10 del programma mostrano co¬ 
me il timone verticale vada fissato (in¬ 
collato!) alla deriva con una inclinazio¬ 


ne di 8°-10° verso l'esterno della circon¬ 
ferenza di volo, in modo che l’aeromo¬ 
dello tenda a virare verso l'esterno della 
circonferenza, tendendo così i cavi di 
comando per avere sempre il controllo 
del velivolo anche se questo assume 
assetti pericolosi. La pagina 11 ci dà le 
posizioni relative (calettamenti) tra ala e 
piano di coda e tra asse-motore e asse 
de! velivolo. Inoltre viene consigliata l'e¬ 
scursione massima del timone di pro¬ 
fondità a cabrare e a picchiare, per ave¬ 
re un modello relativamente lento alle 
sollecitazioni del pilota al fine di facili¬ 
tarne il controllo. 

Passando alla pagina 12, vedremo 
comparire sullo schermo due classici 
tipi di squadretta (a T e trapezoidale) la 
scelta delle quali sarà dettata per lo più 
da motivi di ingombro. Comunque, po¬ 
sto di scegliere il modello A, vedremo lo 
schermo pulirsi parzialmente, per poi 
disegnare al centro la squadretta scelta, 
quotata nei tre fori di attacco della barra 
e dei cavi. Vengono segnalati due valori 
per la distanza dei cavi: uno per avere 
un pilottaggio facile, l'altro per comandi 
più sensibili. 

Premiamo il tasto S per passare alla 
pagina 13, che ci indicherà i valori da 
rispettare per il disegno della fusoliera, 
affinché il modello risulti centrato (cioè il 
baricentro cada nel punto corretto per 
un volo equilibrato del modello). Il primo 
dato che viene calcolato è il braccio di 
' leva, che risulta essere la distanza tra il 
centro di gravità (o baricentro) e il cen¬ 
tro aerodinamico del piano di coda (che 
possiamo con buona approssimazione 
considerare posizionato al 25 per cento 
della corda dello stabilizzatore). Il brac¬ 
cio di leva quindi determina la lunghez¬ 
za della parte di fusoliera compresa tra 
le due superfici orizzontali (ala e piano 
di coda). Questa grandezza è intima¬ 
mente legata alla superficie dell'impen¬ 
naggio orizzontale, per cui una varia¬ 
zione arbitraria di questo valore potreb¬ 
be portare grossi problemi di stabilità al 
modello. La seconda grandezza è il ba¬ 
ricentro, calcolato in percentuale della 
corda media e misurato in centimetri a 
partire dal bordo d'attacco. 

Per far sì che il centro di gravità cada nel 
punto indicato dal computer, è neces¬ 
sario che il peso del muso del modello, 
equipaggiato di motore, serbatoio e ac¬ 
cessori, eguagli quello della parte rima¬ 
nente, cioè quella compresa tra il bari- 


37 





VARIABILI NUMERICHE 

Q - Contiene il valore della nota del brano musicale. 

Z - Contiene il valore della nota del brano musicale. 

A - Idem (viene usata anche come variabile di controllo). 

L - Variabile di controllo. 

0 - Contiene i valori numerici inseriti nei Data. 

CMC - Contiene la cilindrata in centimetri cubici del motore. 
PARA - Parametro per il dimensionamento del peso 
e della superficie alare. 

PESO - Contiene il peso del modello. 

SUPALA - Contiene il valore della superficie alare 
in centimetri quadrati. 

LAM - Contiene il valore dell'allungamento alare. 

APALA - Contiene il valore dell'apertura alare. 

CORALA - Contiene il valore della corda media alare 
con tutti i decimali (il valore verrà poi ridotto 
a una precisione di due sole cifre decimali). 

CORAL - Contiene la parte decimale del valore iniziale 
di Corala. 

CORIN - Contiene le prime due cifre decimali di Corala. 
CORIND - Contiene le prime due cifre decimali di Coral. 

PRO - Contiene il tipo di profilo scelto. 

SUPiA - Contiene il valore della superficie del piano di coda. 
PARMO - Contiene il valore della superficie della parte mobile 
del piano di coda. 

LAMP - Contiene l'allungamento del piano di coda. 

CORPIA - Contiene il valore della lunghezza della corda 
media del piano di coda con tutti i decimali 


(conterrà poi solo il valore ridotto a due decimali). 

CORPI - Contiene la parte decimale di Corpia. 

CORPN - Contiene le prime due cifre decimali di Corpia. 
CORPIND - Contiene il valore di Corpn, diviso per cento. 

STAB - Contiene il valore della frazione di corda 
della parte mobile (il valore verrà poi ridotto 
a una precisione di due sole cifre decimali). 

STA - Contiene le sole cifre decimali di Stab. 

STAD - Contiene le prime due cifre decimali di Stab. 

SUDERI - Contiene il valore della superficie della deriva. 

APERI - Contiene il valore dell'apertura della deriva. 

CORDERI - Contiene il valore della corda media della deriva. 
CORDEMI - Contiene il valore della corda minima 
della deriva. 

CORDEMA - Contiene il valore della corda massima 
della deriva. 

BRAL - Contiene il valore della lunghezza del braccio di leva. 
CG - Contiene il valore della posizione del centro di gravità 
rispetto al bordo di entrata dell'ala. 

SQ - Contiene il valore della posizione della squadretta 

di comando rispetto il bordo di entrata dell'ala 

PA - Contiene il numero della pagina a cui si vuole saltare. 


VARIABILI ALFANUMERICHE 

K$ - Contiene sotto forma di stringa il valore di Corpia 
AS - Contiene il tipo di squadretta scelta 
Q$ - Stringa contenente ventisette spazi 


Tabella 1 - Elenco delle variabili numeriche e alfanumeriche usate. 


centro e la coda. Un modo semplicissi¬ 
mo per verificare il centraggio è quello di 
sollevare l'aeromodello con due dita 
sull’asse passante per il baricentro e 
verificare che il modello stia in equilibrio: 
se tende a pendere in avanti, si deve 
alleggerire il muso o, se siamo ancora 
sotto il limite di peso, appesantire la 
coda (per esempio incollando degli 
strati di balsa): se invece è il muso a 
essere troppo leggero, si deve appesan¬ 
tirlo o allungarlo (è, come vedete, il prin¬ 
cipio della bilancia a due bracci). 

Ottima cosa è effettuare questi tentativi 
riportando su carta il disegno di massi¬ 
ma della fusoliera e, una volta segnato il 
punto in cui cade il C.G. del velivolo, 
trascrivere le coordinate cartesiane dei 
vari componenti del modello (motore, 
serbatoio, carrello ecc.) e, per ciascun 
componente, riportare su una tabella il 
peso, l’ascissa e l'ordinata. 

Utilizzando le formule X = 
(Pn*Xn)/Ptot; Y = (Pn*Yn)/Ptot; dove 
Pn è il peso di ciascuna componente, Xn 
e Yn le relative coordinate, Ptot il peso 
totale del modello, otterremo le coordi¬ 
nate X e Y del C.G.. Se queste non corri¬ 
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spondono a quelle richieste, bisogna 
modificare la disposizione dei pesi (l'or¬ 
dinata del C.G. non ha molta importan¬ 
za in un V.V.C.). Vediamo un esempio: 



Pn 

Xn 

Yn 

Motore con elica 

150 

25 

30 

Serbatoio 

50 

32 

20 

Ala 

80 

45 

25 

Fusoliera 

90 

50 

30 

Impennaggi 

40 

95 

35 


Peso totale 410 gr. 

Xcg = 

( 150*25 + 50*32 + 80*45 + 90*50 + 

+ 40*95)/410 = 42,07 
Ycg = 

(150*30 + 50*20 + 80*25 + 90*30 + 

+ 40*35)/410 = 28,29 

I valori usati, ovviamente, sono pura¬ 
mente indicativi. 

L'ultimo valore visualizzato dal compu¬ 
ter è la posizione della squadretta di 
comando, sia in percentuale della cor¬ 
da, sia in centimetri dal bordo d’attacco. 


Vi viene consigliato anche la misura e 
l'inclinazione dei cavi di comando. La 
pagina 14 visualizza un disegno di una 
semivista dall'alto del modello con indi¬ 
cate le posizioni degli organi di coman¬ 
do. 

In basso a destra sullo schermo verrà 
disegnato il profilo del piano di coda 
con indicata l'altezza dell'attacco della 
barra con il timone di profondità. 

Anche l'attacco, come la squadretta, 
potete autocostruirvela o acquistarla in 
un qualsiasi negozio di modellismo. Nel 
disegno che compare in questa pagina 
sono evidenziati i cavi inclinati rispetto 
all'asse trasversale dell'ala che, insieme 
all'inclinazione del timone verticale, 
contribuiscono a far si che il modello 
non tenda a entrare all'Interno della cir¬ 
conferenza di volo (un altro metodo è 
quello di inclinare di pochi gradi il moto¬ 
re verso l'esterno rispetto all'asse della 
fusoliera, ma i primi due accorgimenti 
adottati sono senz'altro sufficienti e più 
semplici da realizzare). La pagina 15 è 
l'ultima pagina del programma e contie¬ 
ne alcuni consigli per la messa a punto 
del modello. A questo punto, se lo desi- 
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derate potrete saltare alla pagina 3 e 
modificare l’allungamento dell'ala o alla 
pagina 6 per modificare quello del piano 
di coda per vedere la differenza e sce¬ 
gliere poi tra i diversi disegni, quello più 
adatto alla linea del vostro modello. Per 
eseguire tutto il progetto il programma 
impiega solo qualche minuto, ma è 
chiaro che il tempo aumenta considere¬ 
volmente se desiderate effettuare l'hard 
copy di tutte le schermate tramite la 
stampante. 

Da quanto risulta da questa descrizio¬ 
ne, il programma richiede un intervento 
limitatissimo da parte dell'utente per 
quanto riguarda il dimensionamento 
delle superfici, mentre lascia molta liber¬ 
tà sulla forma da adottare per la fusolie¬ 
ra e le superfici (il progetto lavora infatti 
su una corda di riferimento di forma 
rettangolare), è evidente che quello da¬ 
to dal computer è uno dei possibili modi 
di progettare un aeromodello da adde¬ 
stramento V.V.C. e le formule adottate 
per il dimensionamento potranno fare 
arricciare il naso a qualche modellista, 
ma nel campo di cilindrata adottato, i 
risultati sono sicuramente validi e sicuri, 
anche perché i criteri per arrivare ai 


risultati finali sono estremamente rigo¬ 
rosi. Se avrete la pazienza di digitare il 
listato, avrete per le mani un programma 
che vi potrà dare parecchie soddisfazio¬ 
ni (tra le quali quella di avere una rispo¬ 
sta per il vostro amico che non perde 
occasione per spararvi a bruciapelo la 
classica domanda "..ma oltre ai video¬ 
giochi, che cosa sa fare il tuo compu¬ 
ter?” La descrizione dettagliata del pro¬ 
gramma la potrete trovare nei REMarks 
che seguono, anch'essi strutturati a pa¬ 
gine e che corrispondono ai Rem che 
compaiono sul listato. Desideriamo co¬ 
munque fa r vi notare subito le istruzioni 
contenute nelle ultime linee del listato, 
evidenziate dai Rem registrazione e veri¬ 
fica automatica: caricate per prima co¬ 
sa queste linee di programma che, una 
volta lanciate con un Goto 9000, cari¬ 
cheranno la parte di listato da voi digita¬ 
to fino a quel momento per poi prepara¬ 
re lo Spectrum alla verifica automatica. 
Una volta riavvolto il nastro, premete un 
tasto qualsiasi e il computer effettuerà 
la verifica del nastro: se il programma 
risulterà registrato correttamente, ap¬ 
parirà sullo schermo una segnalazione 
di verifica corretta e potrete andare a 


mangiarvi un gelato, con l’animo solle¬ 
vato dalla preoccupazione di avere but¬ 
tato via delle ore per digitare un pro¬ 
gramma che il computer si rifiuta cate¬ 
goricamente di caricare ed eseguire. Se 
invece apparirà la scritta "Tape loading 
error" dovrete solamente limitarvi a ri¬ 
dare il Goto 9000 e ripetere l’operazione. 
A proposito dei Rem che compaiono sul 
listato, vi consiglio di non saltarli a piè 
pari quando copierete il listato perché il 
tempo perso per digitare i Rem vi verrà 
ampiamente ripagato quando dovrete 
cercare il solito errore di battitura che vi 
manda a pallino l’esecuzione del pro¬ 
gramma (errori inevitabili vista la lun¬ 
ghezza del listato). 

Cominciate a scaldarvi le mani perché 
si avvicina il momento di digitare il pro¬ 
gramma: coraggio e in bocca al lupo! 

REMarks 

1-199 - Presentazione del programma 
dopo aver dato un Poke 23609,100 per 
aumentare il volume del segnale sonoro 
dei tasti, si passa alla subroutine U.D.G. 
(Gosub 8000) per creare i simboli espo¬ 
nenziali e le quattro frecce necessarie 
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nella quotatura del disegno. Nella riga 
198 si trovano le istruzioni di lettura e di 
esecuzione del brano musicale, letto nei 
Data digitati a partire dalla linea 4000. 
Durante l'esecuzione l'istruzione lnkey$ 
controlla se un tasto è stato premuto per 
passare immediatamente alla pagina 
seguente, prima della fine del brano. 
200-298 - Pagina 1 : scelta della cilindra¬ 
ta. Dopo il tracciamento del disegno del 
motore (linee 215-235), viene richiesta la 
cilindrata del motore (CMC). A partire 
dalla linea 280 possiamo trovare le istru¬ 
zioni che eseguono le quattro opzioni 
(Copy, Pagina precedente, Pagina se¬ 
guente, Abbandono). Ritroveremo que¬ 
sto gruppo di istruzioni alla fine di ogni 
blocco di programma corrispondente a 
una pagina video. 

300-397 - Pagina 2: primo dimensiona¬ 
mento. Nella linea 330 viene calcolato il 
parametro che servirà al dimensiona¬ 
mento del peso e della superficie alare, 
parametro ottenuto moltiplicando per 
15 il quadrato della cilindrata. Nella li¬ 
nea 361 viene disegnato un rettangolo 
che rappresenta la vista in pianta dell'a¬ 
la presa come campione. Dalla linea 370 
seguono le opzioni. 


400-497 - Pagina 3: scelta dell’allunga¬ 
mento dell'ala. Dopo la visualizzazione 
delle due possibili configurazioni di al¬ 
lungamento e le conseguenze sul dise¬ 
gno dell'ala (linee 440-450) viene chie¬ 
sto l’Input dell'allungamento lambda 
(Lam). Le linee 465-468 evidenziano la 
scelta fatta scrivendo, con caratteri in¬ 
versi, il valore di lambda di fianco al 
disegno dell'ala precedentemente ese¬ 
guito. Seguono le quattro opzioni (linee 
480-497). 

500-597 - Pagina 4: dimensioni dell’ala. 
Dopo essere stati calcolati vengono vi¬ 
sualizzati i valori delle dimensioni dell'a¬ 
la. Nelle linee 532-533 - il valore della 
corda alare Corala viene prima calcola¬ 
to con tutti i decimali, poi, questi ultimi, 
vengono ridotti a due soli. 

Per fare ciò si è isolata la parte decimale 
di Corala, moltiplicata per cento e isola¬ 
ta di nuovo la parte intera ottenuta da 
quest'ultima operazione (ottenendo 
così i due primi decimali come interi); 
questi due numeri, divisi nuovamente 
per cento (e pertanto ritornati numeri 
decimali), sono stati aggiunti alla parte 
intera di Corala (a qualcuno potrà sem¬ 
brare poco chiaro: ha ragione. In prati¬ 


ca però la cosa è molto semplice: fate un 
bel respiro profondo e rileggete di nuo¬ 
vo il tutto con calma). Ora che sapete 
tutto dell'ala, non resta che scegliere 
uno dei tre profili alari (linee 550-555): a 
seconda della scelta, il programma an¬ 
drà a una delle subroutine di visualizza¬ 
zione e stampa delle coordinate del pro¬ 
filo, collocate a partire dalla linea 3000. 
La linea 557 cancella con due stringhe 
di 32 spazi la richiesta di opzioni, prima 
di stampare la schermata sulla printer. 
600-697 - Pagina 5: disegno quotato 
dell'ala. Con un ciclo For-Next situato 
alla linea 610 viene disegnata la vista in 
pianta dell'ala rettangolare, dopo di che 
vengono eseguite le quotature median¬ 
te i caratteri U.D.G. caricati all'inizio del 
programma. 

700-797 - Pagina 6: dimensionamento 
del piano di coda e scelta del suo allun¬ 
gamento. Dopo aver calcolato la super¬ 
ficie dello stabilizzatore e del timone o- 
rizzontale, il programma stampa i risul¬ 
tati e richiede l’allungamento del piano 
di coda, con le stesse modalità adottate 
per l'ala. Anche qui, come nell'ala, a 
fianco del disegno in pianta dello stabi¬ 
lizzatore, apparirà il valore, scritto con 
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»tAb=imt‘ 

[NT Dl'ER 1 , IMK 7 ;AT 7,28 
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Progetto aeromodello “U-Control" 


ZX SPECTRUM 


THEN BEEP .1.33: GD TD 7500 
RB5 IF INKEY$="a" DB INKEY*="A" 
THEN BEEP .1,33: GD SUB 7006 
RR0 IF INKEY$ = "□•• DB !NKEY$="C" 
THEN BEEP .1,33: GDPY 
RR5 IF INKEY$="5" DR INKEY*="s" 
THEN GD TD 1000 
RR? GD TD R80 

1000 CLS : PLDT 0,0; DRAUI 0,175: 
DRAUI 555,0: OfiAUJ 0,-175 
1061 REM 

100E REM PAGINA R 

1003 REM DIMENSIONI DEBILE 

1004 REM 

1005 PRINT flT 0,1; INVERSE l;"Pa 

?010 PRINT ai E,1 ; INK 7;" D 
IMENSIDNI DERIDA" 

1013 LET SUGERI = INT (SUPIfl/3 .5+. 

?015 LET RPERI= I NT (SQR (.8*SUPI 

1017 LET CORDERI=INT (<E*SUDEfiI/ 
aPERI)+.5) 

10IR LET CQRDEMI = .5 + 1NT (COADERÌ 

* .4) 

10E1 LET CDRDEMR =1+1NT (CORDERI * 

.bl 

1055 PRINT INK 4;AT 3,1, "La forni 
a deila deriva non ha";AT *1,1;"® 
alta importanza nel D.D.C.",AT 5 
. 1:"Diamo qui una possibile ";RT 
b . 1,"configurazione:" 

1053 LET SUDERICs,5 + INT ( (CDRDEM 
I+CQRDÈMA)*APERI/£) 

1055 BEEP .1,0: FDR fisi TO 50: P 
RI NT HT 8,1; FLASH 1,"Superf ic i e 
deriva.cm a " , SLJDÉRIC: NEXT a 

1057 PRINT AT 8,i;"Superficie de 

riva.cm a ";SUGÉRIC 

1058 BEEP .1,0: FDR A=1 TD 50: P 
RINT AT 4,1; FLASH 1;"Apertura d 

ari va.cm", APERI: NEXT A 

105R PRINT AT R,1 ;"Apertura deri 
va.cm", APERI 

1030 BEEP .1,0: FDR A=1 TD 50: P 


RINT AT 10,1; FLASH 1;"Corda min 
ima der i va . . ± cra: : CDRDEfl I : NEXT A 

‘Corda minima 


ima der 
1031 PR 

à 


31 PRINT AT 10,1,"Cor 

ii‘s|ép- c T:é & m= 1 

NT BT 11,1; FLASH 1, 


sima derl va^cm^'; CGRj 


NT AT 11,1;"C 
..cm",CDRDÉMA 
_PARTÉMO=|jUDEI 


. TD 50: P 
1;"Corda mas 
GÉMA : NEXT A 
orda massim 




103b PRINT AT 
a deriva. 

1§41 BEEP .1,0: FQR fl=l TO 50: P 
RINT AT 15,1; FLASH 1 ;"Sup, part 
e mob^je^_cm a "; INT (PARfEMD+1 

1045 PRINT AT 15,1; "Sup. parte m 
□bile,....cm a ";INT (PARTEMO +1 ) 
1050 PRINT AT 15,1;"Profiio: Bic 
anvgssc simmetrico" 

MiSwSijra.f&ailk 


, b0 ,30 : DRAtl 

J 15,1: DriAtll 70 ,-£ 

0,-8,-.171: DRAUI -1E 
5 , - . é • ORÌRUI 0,3, -3 

$ §p P -A'È a s> ?NT flT ai ' 10i 

80 IF INKEY$="P" DR INKE 
HEN BEEP .1,33: GD TD 7* 

65 IF INKEY* = "a" DR INKÉ 
HEN BEEP .1,33: GD SUB ] 

40 IF TiNKEY$ = "c" DR INKE 
.HEN BEEP .1,33. CDPY 
0R5 IF INKEY* = "S" ‘ 

THEN GO TU 1100 
“ TD 1060 

~ : PLDT 0,0: DRAUI 0.175: 
5,0: LiRAUJ 0,-175 


!,1: DRAUI -5 


ur" p " 



1 P 81 !) 

1103 REM 


M. 


•Y$* "C‘ 
INKEY*=”s' 


PAGINA 10 

g^SEGNO QUOTATO DELLA 


il LA 


1104 

1105 PRÌ'NT AT 0,54; 
ag.10' 


INVERSE 1;"P 


0 , A : DAA(JJ CDfl ,0 : PUDT 500, A: DRA 


0 . 

UJ 5,0: 


NEXT A 


caratteri inversi, dell’allungamento scel¬ 
to. Seguono le istruzioni per le quattro 
opzioni. 

800-897 - Pagina 7: dimensioni finali del 
piano di coda. Questo blocco di pro¬ 
gramma stampa tutti i dati necessari per 
il disegno del piano di coda. Anche in 
questo caso per avere il valore della 
corda media con una precisione di solo 
due decimali, si è usato lo stesso algorit¬ 
mo impiegato per l’ala. 

900-997 - Pagina 8. disegno quotato del 
piano di coda. Poiché il piano di coda è 
formato da due superfici distinte, per la 
vista dall'alto si sono usati due diversi 
cicli For-Next per il tracciamento del di¬ 
segno, in modo che fosse evidenziata la 
fessura esistente tra i due piani (915- 
916). Nelle linee 930-931 per motivi di 


spazio sul disegno, viene fatto stampare 
verticalmente il valore della corda me¬ 
dia: nella variante K si inserisce il valore 
di Corpia con l’istruzione K$ = Str$ Cor¬ 
pia, poi si calcola la lunghezza della 
stringa con l’istruzione K = Len K$; la 
linea 931 ha poi stampato il valore dal¬ 
l'alto verso il basso prelevando un ca¬ 
rattere alla volta dalla variabile K$ me¬ 
diante l'istruzione K$ = K$ (a To a). 
Nella linea 950 viene calcolato il valore 
della lunghezza del segmento di due 
cifre decimali. 

1000-1097 - Pagina 9: dimensioni del¬ 
l'impennaggio verticale. Vengono cal¬ 
colati tutti i dati necessari per il dimen¬ 
sionamento di un classico tipo di impen¬ 
naggio verticale: quello trapezio-rettan¬ 
golo. Nelle linee 1013-1015 sono calco¬ 


late l’apertura e la superficie in funzione 
della superficie del piano di coda, dopo 
di che viene calcolata prima la corda 
media (1017) e. successivamente, la 
corda minima e massima della deriva. 
Nella linea 1040 viene calcolata la su¬ 
perficie del timone verticale, valore che 
viene aumentato di uno in fase di visua¬ 
lizzazione. Nella linea 1055 viene dise¬ 
gnato un profilo biconvesso-simmetri- 
co. Seguono le solite quattro opzioni del 
programma. 

1100-1197 - Pagina 10: disegno quotato 
dell'impennaggio verticale. Nella linea 
1114 viene disegnato un trapezio rettan¬ 
golo plottando con il solito ciclo For- 
Next, un punto dalle coordinate (50,144) 
alle coordinate (50,58); per ogni punto 
viene tracciato un segmento orizzontale 
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Seguilo programma Progetto aeromodello “U-Control" 

ma plot 144 , 58 : drauj e,32: plo 

T 203,58: DRfltfl 0,32 

1126 PRINT flT 4,4;"À";flT 13.4, "Y 
PLOT 35,58: tiflAtU 0,8b: DfiflÉ 2 

4,0: PLOT 35,58: DRfltU 24,0: PRIN 
T RT 10,2, tNh 7 ;flPERI 

1127 PRINÌ RT 2,5; ■> -di": PLOT 

45,155: DRfìtU 27,0: DRfltU 0,-12: P 
LOt 30,155. DRfltU 57,0: DRfltU -37, 

pn,NT m >' b; INK 

11È4 PRINT RT lb,7,"<« PLO 

T 50,43; DRfltU 57,0: DRfltU 0,15: P 
LOT ODER 1,50,43: DRfltU ODEfì 1,0. 
15: PLOT OL'ER 1,50,44. DRfltU OÙER 

11È5 AfllNT RT 15,4; INK 7 ; CORDEM 

1140 PLOT b2,144: ORfltU ODER 1;0, 

iti et® B;|g! e® m 

bS,18: DRfltU 34,0 
1157 PLOT b4,21 : DRfltU 43,0 
b4,14: DRfltU 43,0 
USÒ PLOT 70,23: DRfltU 30,0 
70,17: DRfltU 30.0 
llb0 PLOT b4,20 : DRfltU -35,-13 
Ubi PLOT b4.21 : DRfltU -13,-5: 

OT b4,14 : DRfltU -11,-4 
llbS AlOT - — 


PLOT 

PLOT 

PLOT 

PL 


_b4.20 : DRfltU -35,0: PLO 


T 4b , 24 : DRfltU 0,-lb,3 
1 lb7 PRIWT INK 7 : flT 20,2; "4"" 
1170 8EEP .1,22: PRIWT flT 21,10; 
INK 5." P fl C S" 

1180 IP INKEY$ = "P" OR INKEY*= "p" 
THEN BEEP .1,33: GO TO 7500 
1185 IF INKEY$="a" OR INKEYs= "fl" 
THEN BEEP .1,33: GO SUB 7000 

IP I(NHEY$=i'c- OR INKEY$= "C" 
THEN BEEP .1,33: COPY 
1145 IP INKEY$="S" OR INKEY$="s" 
THEN GO TO 1P00 
11R7 GO TO 1180 

1200 CLS : PLOT 0,0: DRfltU 0,175: 
DRfltU 255.0: DRfltU 0,-175 

1201 REM 

1202 REM PAGINA 11 

1203 REM f^^ONE SUPERE I □ I E 


1204 REM 

1205 PRINT RT 0,1; INVERSE 1 ;"Pa 

'?210 PRINT RT 3,1; INK 7;"NOTE P 
OSI 1 IONflMENTO SUPÉRF1CI " 

1220 PRINT RT 5,1; ODER l;"Calet 
temente ala-piana cada:© 0 " 

1222 PRINT RT fa . 1 ; OUER 1;"Caiet 
tamentc motore-asse 0° " 

1224 PRINT RT 8,1;"Il timone del 
la dertva deve ";At 4,1, ODER 1; 
"essere fissato inclinato di 
8-10”"; INK ? ;"all'esterno dell 
a circDn= ferenza di volo "; IN 
K 4; " (vedi Pag .10)" 

AMit.m&J ; " ESCLIRSID,SE " 

1235 PRINT RT Ih,b;"10”-15” 
tirare" 

1237 PRINT RT 18,fa;" 5" 


a ca 


PRINT flT 21,10; 

]R INKEY4= "p" 
5 TO 7^00 
]R INKEYi="fl" 
] SUB 7000 
]R INKEY$="G” 
]PV 

JR INKEY$= "s" 


DRfltU 0,175; 
-175 


cchiare" 

1270 QEEP .1,22: 

INK 5, " P fl C S" 

1280 IP INKEY$ = "P " 

THEN BEEP .1,33: Gl 
1285 IP INKEY$="a" 

THEN BEEP .1,33; Gl 

1245 IP INKEY$="S" I 
THEN GO TO 1300 
1247 GO TO 1260 

1300 CLS : PLOT 0,0 
DRfltU 255,0: DRfltU 0 

1301 REM 

1302 REM PAGINA 12 

DI COMANDO 

ÌÌ05 PRINT RT 0,1; INVERSE 1 ; "Pa 

?310 PRINT RT 2,3, INK 7;"SCELTA 
E DIMENSIONRMENTÓ" , RT 3,4;"SQUfl 
GRETTA DI COMANDO" 

1315 PLOT 40,120. DRfltU 24,0: DRR 
tU ©,lb: DRfltU 4,0: DRfltU 0,-lb: DR 
RtU E4.0: DRfltU 0,-4: DRfltU -57.0: 
DRfltU 0,4: PRINT flT b,15; "TIPO A" 
1317 PLOT 40.70: DRfltU 0,4: DRfltU 
28. Ih: DRfltU 1,0: DRfltU 28,-lb: DR 

B.S'pSi.ff'ai ìSTiÌ;”t«« a- 

1111 

TO 3500 

1330 IP fl$="B" OR fl$="b" THEN GO 
TO 3b00 

1333 IF fl| < >"B" OR fl$o"b" OR fl| 
<: >"a" OR fl$o"fl" THEN GO TO 1322 
1370 BEEP .1,22: PRINT flT 21,10; 

INK Si" P fl C S" 

1380 IP INKEY$="P" 

THEN BEEP .1,33: G 
1385 IF INKEY$="a" I 
THEN BEEP .1,33: Gl 
134© IP INKEY$="o" 

THEN BEEP .1,33: C 
1345 IP INKEY$="à" 

THEN GO TO 1400 
1347 GO TO 1380 
1400 CLS ; PLOT 0,0 


GO 


]R INKEY$ = "fl" 
) SUB 7000 
IR INKEY$="C" 

lfl Y INKEY$="s" 


DRfltU 0, -175 


DRfltU 0,175: 


FISSE DELLA 


a pi 


DRfltU 255.0 

1401 REM 

1402 REM PAGINA 13 

1403 REM DIMENSIONI 

FUSOLIERA 

1404 REM 

1405 PRINT flT 0,1, INVERSE l;"Pa 

?410 PRINT flT 1^2, _INK_7i"N0TE P 
ER ' 

OL 

14 _ ..... _ _ . 

“ 5,1; 

a" 

test e 

indicazioni 

1420 LET BRflL = INT (flPflLfl/2+4) 
143© BEEP .1,22: POR fl=l TO 50: 
PRINT FLASH 1 ;flT 10,2;"Braccio d 
i leva min. cm ";BRflL: NEXT fl: 
1432 PRINT flT 10, 


il© PRINT flT 1.2, INK 7;"NOTE P 
1 IL DISEGNO OÉL<lfl",flT E, 2; "PUS 
.lEfifl E IL CENTRAGGIO" 

_ 115 PRINT INK 4;flT 4,1;"Per il 
disegno della fusoliera”;flT 
"att enersi SCRUPOLQSflMENtE 
1417 PRINT.INK 4;flT b,l;"qus 


m ra’ccYó d 1 l 
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ZX SPECTRUM 


la cui lunghezza Cor=22 è incrementa¬ 
ta volta per volta di 0,4 pixel (Cor- 
= Cor+ 0,4). 

Le linee 1140-1167 disegnano la vista 
dall’alto degli impennaggi, evidenzian¬ 
do l’angolo formato dal timone verticale 
con la deriva. 

1200-1297 - Pagina 11: calettamento a- 
la-piano di coda e calettamento moto¬ 
re-asse dell’aereo. Questo blocco di 
programma dà alcuni dati fissi per il 
funzionamento e la messa a punto delle 
parti fin qui elaborate. Vi consigliamo di 
inserire il numero esatto di spazi per 
ogni stringa, per un corretto centraggio 
delle informazioni sulla pagina video. 
1300-1397 - Pagina 12: scelta e dimen¬ 
sionamento della squadretta di coman¬ 
do. Dopo il titolo, vengono disegnati i 


due tipi più diffusi di squadrette di co¬ 
mando (linee 1315-1318) seguite dall’In¬ 
put per la scelta del modello da quotare. 
A seconda della scelta, le linee 1325- 
1330 indirizzeranno alla routine di puli¬ 
zia dello schermo e tracciamento del 
disegno quotato, situate a partire dalla 
linea 3500. La linea 1333 ha il solo com¬ 
pito di controllare che non venga dato 
un Input errato. 

1400-1497 - Pagina 13: dimensioni a cui 
attenersi durante il disegno della fuso¬ 
liera. Questo blocco di programma, do¬ 
po aver stampato le spiegazioni neces¬ 
sarie, calcola il braccio di leva Bral (li¬ 
nea 1420) e la posizione, in percentuale, 
della corda e in centimetri del centro di 
gravità CG e della posizione della squa¬ 
dretta CS (1442-1443). 


Nelle linee 1460 e 1461 vengono riporta¬ 
te alcune indicazioni sulla posizione dei 
cavi che verranno poi visualizzate sotto 
forma di disegno nella pagina seguente. 
1500-1597 - Pagina 14: vista in pianta 
deH’aeromodello per la posizione dei 
cavi e della squadretta di comando. La 
linea 1525 traccia la vista dall’alto della 
semifusoliera sinistra mentre la linea se¬ 
guente ha il compito di tracciare l’asse 
della fusoliera come una linea tratteg¬ 
giata. La linea 1530 traccia una possibi¬ 
le configurazione dell’ala (trapezia), la 
linea 1535 traccia gli impennaggi oriz¬ 
zontali. I caratteri grafici che compaio¬ 
no nelle linee 1550 e 1551 sono stati 
ottenuti stampando con caratteri inversi 
il simbolo del punto (.) e lo spazio. Le 
linee 1557-1558 tracciano i cavi di co- 


1HHO ^EEP "l.èl^DR A = 1 TD 50: 
PRIMT FLASH 1 ; , AT 11,1; "Centro d 
j. aravi ta' CG 35V. Corda": MEXT a 
1HH1 PRUNI AI 11,1; "Centro di gr 
avita' CG'EStf Corda” 

1HH3 LEI CG=CDRALA*.35 
1HH3 LEI SQ=CDRALA*.35 
1HH5 PRIMI AI 13,1; " (";CG; "noi da 
l bordo d'attacco) 


1HS0 BEEP .1.33: FCR A=1 TD 50: 
PRIMI FLASH 1 ; ; AI 13,1 ;"Squadret 
a": MEXT a 
13,1;"Squadret ta a 

;SQ;"cm da 


ta ai 35X Corda": ME^4 
ISSI PRIMI AT ~ “ 

l 35X Corda" 

1H55 PRIMT AI IH , 1 ; " 

1 bordo d " at t acco)“ 
lHb6 PRIMI AI 17,1; IMK H;"Lungh 
5223 cavi m.l3/lb" 
lHbl PRIMI AT lfl,l; IMA H;"Cavi 
i no 1,1 rat i a l l ' indietro"; At IR , 1 ; 

:ep . ì, 


‘di fi" 
1H76 BEI 
IMK 


.33: PRIMT AI 31,10; 
P A C S" 




p" 


1HB0 IF INKEY$="P" 

THEM QEEP .1,33: G 1 

1HR5 IF IMKEY*="S" 

IHEM GD !□ 1500 
1HR7 GD TD 1HB0 

1500 CLS : PLDT 0, 

ORACI) 355,0: OR ALI) 

1501 REM 

1503 REM PAGIMA IH 
1503 REM MISTA ~ 

AEREO 
SQUADRI 

1505 PRIMI AT 0,1; IMMERSE 1 ;"Pa 

lèS; PLDT 7.150. 

RAID 300,5,. 31 
1537 PLÙT 5.150- FDR Q=5 ID 315 


FJ IMKEY*»"C" 
R IMKEY*="s" 

: IJR£jtD 0,175: 
ì PIAMIA DELL 


.LO 


ORACI) 10,-5,1: D 


RSE 1 ; 5 .0 : MEXT Q 
1530 ALlII 5R,1H3: ORACI) 3,-130: D 
RAD 37,6.. 5: ORACI) 7,1 IR 
1535 PLOT 307. lHb: ÓRACU 
RAID 17.0j,.S: ORACI) 7,Hf 
,1HR: 0F “ 
i550 PR1 

ÌsSTpR) 


ÓRÀcL 0,-H3 
3 RIMI At 3,R; 


il MI 


; : piriti - -1. S 

3RAID 0,5: ÓRAIU 
OR 


IMK 7; DMER 1 

IMK 7;AT 3,10; DMER 1 

Ì5?S PLOT IMK 7,83,15H: DRACD IMK 
7:50.0: ORACI) IMK 7,0.-E: ORACI) I 
MK 7; 100.0: ORACI) IMK ?;0,1: ORACI) 
INK n '-S 0 

1557 PLDT'7H, 1H1 : ORACI) b,-l: 

ISSA PLDT RI , 1H1 - 

15b5 PlDT ina. 53 
ORACI) 15,1: ORACI) yi 
U) -100,0: ORACI) -H , i 
15bb PLOT 330,HB I 

lSbt e ALQ7 fl 333,Hb: ORACI) 0,-15: 

AID B,0: DRACD 0.15 
lSbB PRIMI AT ÌR,IH."h SQUADRET! 
A t " ; AI 30.31," mcnlS, 13" 

1570 BEEP .i.Bé: PRIMt AI 31,10; 
IMK 5," P A C S" 

1580 IF IMKEYs = "P" OR IMKEY*="p" 
IHEM BEEP .1,33: GD TD 7500 
1585 IF IMKEY$="a" DR IMKEY*="A" 
THEM BEEP .1,33: GD SUB 7000 
15R0 IF IMKEY*=”c" DR IMKEY$="C" 
THEM BEEP .1,33: CDPY 

Vomiti *' DR nsKEY$s " 5 '' 

Ìb00 CLS ÌU PLOT 0,0: DRACD 0,175: 
DRACD 355.0: DRACD 0,-175 
lb01 REM 

lb03 REM PAGIMA 15 
lb03 REM MOTE FI MALI PER LA 
GQSTRU2I0ME 

lb0H REM 

lb05 PRIMI AI 0,1; IMMERSE 1 ;"Pa 
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Seguito programma Progetto aeromodello “U-Control" 


?b03 PRINT AT 2 3. FLASH 1;"NOTE 
FINALI" 

lbl5 PRINT INK H;AT H.l;"Usate u 
n'Ehca con passo corto" 
lb17 PRINT INK H;AT S,l;"Il serb 
atoto deve CDntenerE ";AT b.1 ; 
"miscela per c/3 min, di volo" 
lbia PRINT INK H; AT 7,1,"Per la 
barra di comando usate ";AT 6.1;" 
filo di acciaia armonica di "; Al 
3,1,"1.5/2 mm. Se la velocita' 
di",AT 10,1;"volo fosse eccessi 
va. non",AT 11.1;"aumentate il p 
eso del modello”.AT 12.1;" ma ri 
ducete il passo della" 
lb2G PRINT INK H;AT 13.1,"elica 
o aumentate la superfice",RT IH, 

1 ' " 3 ^ 3TE 11 

lb70 BEEP .1,22. PRINT AT 21,10, 
INK 5. " P A C S" 

lb80 IF INK£Y$="P" QR INKEY4 ="p" 
THEN BEEP .1.33 3D TD 7500 
lbB5 IF INKEY$="a" OR INKEY$="A" 
THEN BEEP .1,33: GQ SUB 7000 
lb3@ IF INKEY$ = "c" QR INKEY$="C" 
THEN BEEP .1.33: COPY 
lb35 IF INKEY*="S" OR INKEY$="s" 
THEN GO TD 1700 
lb3? GE TD lbfl0 

m c fe| s ;0 PLS 

1701 REM 

1702 REM ULTIMA PAGINA 

1703 REM 

1710 PRINT FLASH 1; INK 7, PAPER 
2; BRIGHT 1,AT 10,10,"BUÒN LAND 

173Ì LÌf T S=-3 H0 EÌT 2=IH: LET Q=3 
• FDR Lui TD 2lb: READ 0: IF INK 
EY$z"" THEN BEEP .1.0: NEXT L 
17H0 FDR A= 1 TD H: PAUSE 2: BEEP 
.03,10- NEXT A BEEP .2,10: RES 
TORE H0Ó0 LET fls-3 LET Z=3: LE 
T Q=1H 


.DJ 0,1 
DRAtU 




A Atti 0,175: 


ì?^g HF 

1731 REM INIZI 


_ _,10 SDTTDPAGINE 

1735 REM 
2680 STOP 

2300 REM 

2301 REFI COORDINATE PROFILI 

2302 REM 

~Ì0H BEN PROFILO SAINT CYR 52 
3LS 


b Pp . ,l ; IT p§i M fÀt \*xm 

□FILO SAINT CYR 52' 

3002 


1002 PRINT AT 3,1 ;"X 0 2.5 

5 7.5 10 

3005 PRINT AT H.l; INK H."Ys 2.5 

H. 2H 5.5 b.H't b.B " 

3010 PRINT AT 5.1, INK 5;"Yi 2.5 

I, bb 1.3 0.87 é.B " 

3020 PRINT AT 7 , 1 ;"X 10 20 

30 H0 50 

3025 PRINT AT 8,1, INK H;"Ys b.8 
3.10 10 3.8 Ó.B " 

3030 PRINT AT 3,1; INK 5;"Yi 0.8 


1; INK 5;"Yi 0 


•UNENDO I PUN 
TABELLA SI 0 


UNDER£ 
1,5, "F 


0.02 0 0 0 

3035 PRINT AT 11,1 ;"X b0 70 
80 30 100 " 

30H0 PRINT AT_12,1,^INK H;"Ys 7 
5 5.5 3.3 2.1 

30H5 PRINT AT 13,.. 

0 0 0 0 

3050 PRINT AT 18,1 
TI INDICATI DALLA 
TTIENE IL PROFILO" 

3030 RETURN 
3035 REM 

303b REM PROFILO CLARK Y 
TGU' 7 REM 

3100 CLS PRINT AT 0,1, 

1 "Pae H bis" PRINT AT 
□FILO CLARK Y" 

3102 PRINT AT 3,1;"X 0 2.5 

5 7.5 10 " 

3105 PRINT AT H.l, INK H;"Ys 3.b 
b.H3 7.8 B.73 3.5b 
3110 PRINT AT 5.1, INK 5;"Yt 3.b 
1.H2 0.3 0.53 è.33 " 

3120 PRINT AT 7,1;"X 10 20 

30 H0 50 

3125 PRINT AT 8,1; INK H;"Ys 3.5 
b 11.3 11.7 11.3 10.H3 " 

3130 PRINT AT 3,1; INK 5;"Yi 0.3 
3 0.01 0 0 0 " 

3135 PRINT AT 11,1;"X b© 70 

80 30 100 " 

31H0 PRINT AT 12.1; INK H;"Ys 3. 
1 7.H3 5.2 2.4 0 " 

31H5 PRINT AT 13,1, INK 5;"Yi 0 

3150 PRINT AT 18,1,"UNENDO 1 PUN 
TI INDICATI DALL0 TABELLA SI 0 
TTIENE IL PROFILO" 

3130 RETURN 
3135 *|N 

=00 :ls : PRINT 

•ìlS 33 



PROFILO CLARK X 


0 , 1 ; 

NT flt 


■gl 


H bis" 

_ CLARK X 

02 PRINT.AT 3,1;"X 0 


INDERSE 
1,5;"PR 


2.5 


H, 1; INK H;"Ys 
12 3.b8 

1; INK 5;"Yi 
J 0.5 " 

, 1 ; "X 10 20 



NK H; 
& 


1,1 ;"X 


10 

3205 PRINT A 
b.bH 7.35 | 

3210 PRINT A 

ailé^R^Ni^A 

3225 PRINT A 
8 11.3 11.7 
3230 PRINT AT 
0,03 0 

3235 PRINT AT 
80 30 100 

&»■ e!»»- 

32H5 PRINT AT 13,1, INK 5; 

0 0 0 0 " 

3250 PRINT AT 18,1,"UNENDO I PUN 
TI INDICATI OALLP TABELLA SI 0 
TTIENE IL PROFILO" 

3230 RETURN 

1^ §1-1 segno 

3H3b REM 
3500 LET B $ = " 

": FOR A=H TO 21: BEEP 


Ys 3.b 
5;"Yi 0.5 
b0 70 
Ys 3. 
Yi 0 
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Progetto aeromodello "U-Control 


ZX SPECTRUM 


., 1 : PRX NT flT fl, 1 ; e$ : NEXT fl 
3515 PLOT 60,510 : BEEÉ 1 .01.1: DRfl 
CO EH.0 BEEP .01,1: DRfltU 0,lb: B 
EEP .01,1: DRfitil R,0: BEEP .01,1: 
DRfltU 0,-lb: BEEP .01,1 ORfltU EH 
,0 BEEj* .01,1: ORfltU Ó,-R: BEEP 
.01,1.: DRfltU -57.0: BEEP .01.1 D 
RfltU 0 ,R 

35E0 CIRClE 1O6.10E.E: CIRClE 13 
3.6b E: CIRCLE fiH, flb . E 

3530 PLOT 133.6b: DRfltU 0 ,-E0 

3531 PLOT AH.flb: DRfltU 0,-E0: PLD 
V 60.b7: DRfltU 57,0 

3533 PLDT AH.flb DRfltU -E0 .0 
3535 PLOT 106.10E: DRfltU -R1,0 
35H0 PRIMI flT 13 .R. 

35H1 PRINT flT 13,lt; 

3SH5 PRINT flT 11 .6;"A" 

35Hb PRINT flT 6.6;"Jf" 

35H6 PLOT b7,U6: ORfltU 0 , -H6 
3550 PRINT flT 10,7;"B" 

3553 PRINT flT IH.13,"fl" 

35b0 PRINT flT 17,1; INh 7; "fl = am 

3Sbl PRINT INh 5 ;flT 16.1;"B= mm 
R (PìlpIaggtD facile)" 

35bE PRINT INh 5.flT 1R.1;"B = mm 
10 icamandi sensìbili)" 

35R0 GD TD 1370 
35RR STOP 
3b00 LEI S* = " 

": POR fl = H TD E1 
.006.1 PRINT flT fl 


P . 1 . 1 DRfltU 1 .0: 
tU 56 -In: BEEP .1 . 
BEEP .1.1 DRfltU -57.0 


BEEP 

X 1:Q*: NEXT fl 

ss^s è4;fc-°aa 

3EEP .1,1: ORf 
1 DRfltU 0 . -R: 


3bl7 GD TD 35E0 
3700 STr~ 


_ _ FDP 

3RR5 REfl 
3RRb REf'l 
3RR7 REfl 
H000 DATA 
, a lb 


flUSICfl 


IH 


:ei ;a,i^ 


.. -3 . IH . -3 . lb, -3,17 .a . . 
a,17,a.IR,a.lb,à,17,a,IR,a 
?.. a. IR a .Si .a . EE 


H010 DATA a,IR,a,El,a,17,a,IR,a, 
lb . a , 17 , a.. IH , a , IR , a , lb , a , 17 , a . IH 

HÌÉè b ÓfìTfl a a Ì0 H a ,7, a ,R, a , 5 , a ,7,a 
,H . a 5, a . E , a ,7 , a ,H . a . 5 a , E , a ,H , a 

H0ÉÌ DATA q,7,q,5,q, H ,q,E,q,1,q, 

HÓHÓ q C)M z , 1E ,g , 10,2 ,R ,2,7^z ,b., 
z,7,z,R,z,10„ 


' *-,4 i • , i , t , u , 

i . ^ , . , t., .vi, Z,c,Z,H,Z,b,Z,7 , Z ,b 

, Z, 7 , Z.R .Z, 10 

H0é0 Df^Tfl q,7,q,5,q,H,q,b,! 

5 , 3 , H , q , 5 , q , -3 , q , - 1 , q , 1 , q , i 


1,1, q, 

■, q, l, 

•lébé'YiM'1, 1 E, z, le,, I, S, z , 7. z, fa, 

bpe prt abbandono 

7000 INPUT "confermi? (s/n) ";fls 
7010 IF fì$="S" DR fl $ = " s " THEN ST 

70E0 RETURN 
7H00 REfl 

7H05 REf'l INDIR!22flf1ENTQ PAGINE 
7H10 REfl 

7500 BEEP .1.4: INPUT "PAGINA N' 
= ",Pfl: LEI PR= iPfl + 1)*100 
75Ó1 IF Pfl=100 THEN GD TD E00 
7S0E GD TD Pfl 
~7)P 

, CARATTERI U.D.G. 

7R0B REf'l 

6000 PDhE USR "fi", 0 

6001 PDhE USR "fl"+1 .BIN 01110000 

600E PDhE USR "fi"+5,BIN 01001000 
9003 PDhE USR "fi"+3,BIN 00010000 
600H PDhE USR "fl"+H,SIN 01111000 
9005 -- - - - 



305 PDhE USR "fi"+5,0 
30b PDhE USR "fl"+b,0 
307 PDhE USR "fl"+7.0 
310 PDhE USR "B". 0 


mando, inclinati rispetto l’asse trasver¬ 
sale dell’ala. Infine le linee da 1567 a 
1568 disegnano il profilo piano-conves¬ 
so del piano di coda, evidenziando la 
levetta sul timone orizzontale che verrà 
collegata alla squadretta per mezzo del¬ 
la barra di comando. Seguono le opzio¬ 
ni. 

1600-1697 - Pagina 15: note finali per la 
costruzione. Verranno visualizzati alcu¬ 
ni consigli per la messa a punto del 
modello e per il volo. E praticamente 
l’ultima pagina del programma. 
1700-1795 - Schermata finale. Nella li¬ 
nea 1720 viene dato un Restore per po¬ 
ter rileggere il brano musicale “imma¬ 
gazzinato" nella linea 4000. La linea 
1735 esegue la melodia letta tramite l’i¬ 
struzione Read O; prima però vengono 


reinseriti nelle variabili A,Z,0 i valori del¬ 
le note, poiché queste variabili erano 
state riutilizzate nel corso del program¬ 
ma per altri scopi (cicli For-Next ecc.). A 
questo punto iniziano le sottopagine e 
le subroutine. 

2900-3290 - Sottopagine contenenti le 
tabelle dei profili alari. Non c’è molto da 
spiegare: l’unica cosa su cui bisogna 
porre una certa attenzione è il numero 
degli spazi da inserire tra un numero e 
l’altro per una corretta impaginazione 
(ricordiamo che per ogni X abbiamo 
due valore di Y). 

3490-3700 - Sottoprogramma per la pu¬ 
lizia parziale dello schermo e per il dise¬ 
gno quotato delle squadrette. Nella li¬ 
nea 3500 viene caricata la variabile Q 
con 26 spazi, poi, con un ciclo da 4 a 21, 


viene pulito lo schermo della pagina 12, 
tranne le prime quattro righe. La linea 
3515 traccia il disegno della squadretta, 
associando ad ogni linea un brevissimo 
segnale sonoro. La linea 3520 disegna i 
tre fori nei quali verranno agganciati i 
cavi e la barra di comando dell’elevato¬ 
re. La linee 3530-3590 quotano il dise¬ 
gno e, con il Goto 1370, si torna alla 
pagina 12 per le opzioni. Con la stessa 
tecnica le linee 3600-3613 puliscono lo 
schermo e disegnano il secondo tipo di 
squadretta, poi, visto che la quotatura è 
la medesima, con un Goto si torna alla 
linea 3520. risparmiando così un po’ di 
memoria (e di tempo). 

3995-5990 - Data del brano musicale. 
Dalla linea 4000 alla 4050 sono conte¬ 
nute le note del brano musicale suonato 
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Seguito programma Progetto aeromodello “U-Control” 


aeu 

3015 

aeia 

aeiH 

3015 

aeib 

agi? 

3050 


m 

ac 

ac 

ac 


51 

55 

53 

54 


3055 

a05b 

3057 

3030 

3031 
3035 

8033 

8034 
3035 

aeab 

3037 
3OH0 
704 1 



PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 

PDKE 


USB "B 


LISE 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 


USF 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 


+1,BIN 
+ 5 , BI IN 
+3 ,BIN 
+4,31 N 

+s,aiN 

+b .0 

B;;+7,0 

□■’+iISin 

~ +2,BIN 
+3,aiN 
+ 4 ,sin 
+s,aiN 

_ +b , BIN 
"D" +7,3IN 
” 0 - ,0 

”D” + i ..a 
"D”+ 5 ,a 
"D ii +3,a 

"D" +4 , B 
"0"+5,3 

"E"+i;!b 

"E "+5 ,a 
"E”+3,a 


’B' 

•a* 

■B' 


"C' 

•c 


01110000 

001ÌÌ0SÌ 

00010000 

01110000 


00000001 
00000111 
00111110 
11111111 
00111110 
00000111 
00000001 

10000000 
11100000 
01111100 
11111111 
01111100 
11100000 
1000000 “ 
110101 ' 
01111 » 
01111 » 
001110C 


3331 

3335 

8333 


PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE 
PDKE _ 
BETUBN 
BEH 
BEN 


USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

USB 

m 

USB 

USB 

USB 


"E" +5 ,.BIM 
"E"+b,3IN 
"E"+7,5IN 
"F" ,BIN 
"F"+1,BIN 
"F "+5,BIN 
"F"+3 ,aiN 
"F" +4 ,bin 
F"+S,3IN 

_ ■ +b . a 1 n 

+7,aiN 

,0 

+i,aiN 

_ +5.BIN 

"G "+3 .aIN 

"G"+b .0 
"G"+7,0 


•F' 

T‘ 

'G' 

•G' 

■G' 


ih 


-+ 4,3 in 00111000 



00111000 

00010000 

00010000 

00010000 

00010000 

00111000 

00111000 

00111000 

01111100 

01111100 

11010110 

01110000 

01010000 

01110000 




ÌTICB 


JE "aerpraUFl" LINE 10 
3 : PBINT BT 10, 10; "UEBIF 
0 

FY "" 

: PBINT BT 10.. 14; "o.K. " 


all'inizio e alla fine del programma. Per 
dare un effetto che simuli il più possibile 
due voci, viene sempre ripetuta una no¬ 
ta contenuta in una variabile, con una 
durata di circa metà della durata della 
melodia. L'effetto è veramente rtìolto 
gradevole, tenuto conto delle pessime 
prestazioni musicali dello Spectrum. 


6950-7020 - Abbandono del program¬ 
ma. Se durante il programma viene chie¬ 
sta l'opzione di abbandono, si salta a 
questo sottoprogramma che effettua lo 
Stop solo dopo aver chiesto conferma 
dell'istruzione, evitando così di bloccare 
accidentalmente il programma. 
7400-7600 - Indirizzamento pagine. La 


linea 7500 chiede a che pagina si vuole 
saltare; poiché le pagine sono program¬ 
mate di cento in cento a partire dalla 
linea 200, l’inizio della pagina richiesta 
si troverà alla linea (PA + 1)-*100. La 
linea 7501 controlla che non sia stata 
richiesta per errore la pagina 0. La linea 
7052, infine, manda alla prima linea del¬ 
la pagina scelta. 

7900-8990 - Caricamento caratteri defi¬ 
niti dall'utente. Si sceglie di caricare gli 
U.D.G. usando i numeri binari per la 
miglior chiarezza del listato piuttosto 
che istruzioni Data, a\scapito forse di 
una maggiore velocità di battitura. 
8991-9020 - Registrazione e verifica au¬ 
tomatica. Vi consigliamo di caricare per 
primo questo sottoprogramma. Pensia¬ 
mo infatti che, data la lunghezza del 
listato, non riuscirete a caricare il pro¬ 
gramma tutto in una volta. Potrete così, 
dando un Goto 9000, caricare su cas¬ 
setta il pezzo già battuto e, alla fine, 
ottenere la verifica automatica. ■ 
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MSX 

Musica 
con un MSX 

Sfruttate le notevoli possibilità sonore 

del vostro computer 

di Paolo Ferrami 


m 


S e trovate frustrante avere per 
le mani un computer MSX e 
riuscire a fargli emettere solo 
una serie di note stonate, no¬ 
nostante la sua grande potenzialità nel 
campo musicale, allora questo pro¬ 
gramma fa al caso vostro. Esso infatti 
esegue cinque brani musicali, rigorosa¬ 
mente scelti col metodo della casualità 
illogica, sfruttando il macrolinguaggio 
musicale sviluppato dall'istruzione 
Play. Non solo, ma una volta caricato 
questo programma, potrete avere la sa¬ 
dica soddisfazione di ascoltarvi la 
Bourrédi Bach a “78giri" o trasformare 
l'Inverno di Vivaldi in un “Tip-Tap". Gra¬ 
zie alle istruzioni Delete e Renumber po¬ 
trete isolare un motivo e inserirlo in un 
vostro programma (ricordo che l’esecu¬ 
zione dell'istruzione Play non blocca l’e¬ 
laborazione. poiché i suoni sono gestiti 
autonomamente da un generatore di 
suoni a tre canali AY-3-8910). 
Ritornando al programma così come è 
listato, per utilizzarlo correttamente do¬ 


vrete semplicemente inserire il numero 
del brano scelto così come appare sul 
menu, ricordandovi che potete selezio¬ 
nare più brani senza attendere la fine 
dell'esecuzione del primo: in questo mo¬ 
do i brani scelti verranno suonati in suc¬ 


cessione senza soluzione di continuità. 
I brani programmati sono la Bourré in Mi 
minore di Bach, la Romanza op. 50 di 
Beethoven, l'Inverno (dalle "Quattro 
Stagioni") di Vivaldi, l’Allegretto dalla 
sinfonia n. 3 di Brahms e la Sonatina in 


Listato 1 - Il programma di ainteil musicala, 

18 REM 44444444444444444444444 


28 REM 4 4 
38 REM 4 MUSICA CON UN M.S.X.4 
48 REM 4 4 
58 REM 4 di Paolo Fsrraai 4 
68 REM 4 4 
70 REM 4 1985 4 
80 REM 4 4 


90 REM 44444444444444444444444 

100 REM 
110 REM 

120 GOSUB 1668 : REM -► Al titolo 
138 REM 
140 REM 

158 REM MENU 

160 REM 

170 SCREEN0:COLOR15,13,13 
180 KEV OFF 

190 LOC ATE0,0 :PR1 NT * i- 


288 L0CATE1,2PR1NT*1) J.S.BACH: BOURRE 7 
in MI Minora" 

218 L0CATE1,4:PRINT’21 l.V.BEETHOVEN : R0 
MANZA op.50 " 

220 L0CATE1,6:PRINT‘31 A.VIVALBI: INVERN 
0 (1« 4 stagioni) 

230 L0CATE1,8:PRINT'43 J.BRAHMS: ALLE6RE 
TTO (Sin*, n-3) 

240 L0CATE1,18:PRINT’5) A.MABELL!: SONA 


TINA in RE Maggiora 

250 CLEAR:L0CATE1,18PRINT" ":INPUT "n« 
Motivo:";A 

260 0N A GOSUB 310,630,848,1208,1498 
278 G0T0258 
280 REM 

298 REM BACH :BOURRE ' in mì Minora 

308 REM 

310 FÙRN»1T02 

320 PLAV"V7Ti50O6L8EF+*,“V7T150O4L88E*,* 
V7T150" 

330 PLAV06L46", "04L4E" 

348 PLAV“06L8F+E","04L4A" 

350 PLAV"06L4D+","0414B" 

368 PLAV-06L8EF+","04L4A" 

370 PLAV05L4B", "04140" 

380 PLAV06L8C + K + ", "04L4F*" 

390 PLAV06L4E", "04L4E" 

480 PLAV“06L8t>C",“04L4G" 

418 PLAV“05L4B","04L4G" 

420 PIAV ,I 05L8AG“, M 04L4A* 

430 PLAV“0514F*",“04L4B“ 

440 PLAV"05L86ABAGF*","04L4A6B" 

450 PLAV05L4E", "04L8EFf 
460 PLAV"06L8EF*","04L8GF*" 

470 PLAV06L46", "04L4E" 

480 PLAV"06L8F + E","04L4A" 

490 PLAV“06L4B+",“04L4B" 

500 PLAV"06L8EF+*,"04L4A" 

510 PLAV04L4B", "04L4G" 

520 PLAV05L8C + P + ", "04L5F + " 
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Seguilo programma Musica con un MSX. 


530 PLAV05L4E",“04L4E" 

540 PLAV“05U8I>C“,"0314F + * 

550 PLAV04L4B",“03146“ 

560 PLAY"04L8AG“,"04L4C" 

570 PLAV"04L8GL4FtL86","04L4DD* 

580 PLAV“0403L1G“."03L1B",*03L16‘ 

590 NEXT: RETURN 
600 REM 

610 REM BEETHOVEN : ROMANZA Op.50 
620 REM 

630 PLAVV7T200O4L4G. ‘, ‘V7T200O3L4G. ", “V 
7T200* 

640 PLAV05L5C05L2C. *» "04L1C" 

650 PLAY"L4EL4DL4FL4D",“ 03L1F" 

660 PLAY“05L2CR804L8B05L8D04L8B“i "O3L10" 
670 PLAV"04L26R4L4G*,“03L16" 

680 PLAV05L2CL8DL8C4L8DL8P4", “04L2C03L2 
F “ 

690 PLAY“05L2EL8FL8£L8FL8A*,"04L2C03L2F" 
700 PLAV“.05L2ER8L8FL8F + L8G","04L1C" 

710 PLAY" 05L2D.04L4G’/“ 04L1G“ 

720 PLAV"05L2F.L4D*,*04L1P‘, "03L1G* 

7 30 PLAV04L4B05L4C04L4B05L4C" , "03L4804L 
4EL4DL4E" 

740 PLAY"05L2F.L4D", "04L1D*, “03L16" 

750 PLAV“04L4B05L4GL4F+L46‘,"03L4G04L4EL 
4D»L4£" 

760 PLAVL2A.L8B06L8C”, "04L2FL2F + * 

770 PLAV05L2C.L8L8EL8D", "04L1G" 

780 PLAY“05L2DL4G04L48", “Ù3L16* 

790 PLAY“05L1C“,“04L1E","03L1C" 

800 RETURN 
810 REM 

820 REM VIVALDI : INVERNO 
830 REM 

840 PLAY“V7T14506L4CL86FL4EL8DC“,-V5T145 
05L4CCCC-,“V5T14504L4GG6G* 

850 PLAV"06L4D05L4GR4L46“,■04L4BBBB*,*04 
L4G6GG* 

860 PLAY"06L8FEDC05L4B06L4F“,“04L4BB8B", 
“04L4666G" 

870 PLAV“06L4FER4L4E","05L4CCCC“,*04L4GG 
GG* 

880 PLAY“06L4DL8EFL46L8AB","04L4BBBB”,“0 
4L4G8GG" 

890 PLAV“o6L4CL8L8DEL4FL8GA*,"05L4CCCC", 
"04L4AAAA" 

900 PLAY“05L4B06L8CDL4EL8F6‘,"04L4BBBB", 
“04L4G666" 

910 PLAV05L4AL8B06L8CL4DL8EC", "04L4AAAA 
","04L4FFF + F* 

920 PLAV”05L2BL8BGF+6“,“04L4BBBB","04L4G 
GG6" 

930 PLAY"06L2DL8D056F + G",■05L4CCCC,"04L 

940 PLAV"06L2EL8E05L8GF*6“<"05L4CCCC“ # "0 
4L466G6" 

950 PLAV06L2F + L8F + DCD", "05L4CCCC*. "04L4 
AAAA" 


960 PLAY-06L4605L4GR406L4G","04L4BBBB”, ■ 
04L4GGG6" 

970 PLAY"06L86F+EDCÙ5L8BA6" , “05L4CCCC" ,* 
04 L 4A AArt M 

980 PLAV"05L2A.L4G* »"05L4DDDD","04L4F + F» 
F + F+ " 

990 PLAY“05L26R2“ , "04L4BBBB", “04L4GGGG" 
1000 PLAV05L4606L8DC05L4BL8AG","04L4BBB 
B",“04L4G66G* 

1010 PLAV05L4ADR4D" , "04L4AAAA*, "04L4F + F 
+F+F+* 

1020 PLAY"06L8C05L8BAGL4F+06L4C",“05L4DD 
D P “,“04L4F+F+F+F+" 

1030 PLAV06L4C05L4BR4L4G", •05L4PPPP", "0 
4L4GGG6" 

1040 PLAY"06L8FEDC05L4B06L4F","05L4BBBB* 
,"04L46G66" 

1050 PLAV06L4FER4E’, "05L4CCCC" , •04L4866 
6" 

1060 PLAV*05L4AL8B06L8CL4DL8EF*,*05L4CC0 
4 L 4 A A " # "04L4FFFF" 

1070 PLAV"05L4B06L8CDL4EL8F6“ , “04L4BBBB" 
h04L46666 m 

1080 PLAV0ÓL4CL8DEL4FL86A* , “05L4CCCC* , * 
04L4G666“ 

1090 PLAY"05L2BR4L8B06L8C“ , "05L4PPPP" ,"0 
4L4GGGG’ 1 

1100 PLAY“L806P05L8BA606L8EF6E‘,"04L4BB0 
5L4CC*,"04L4666G" 

1110 PLAY"06L4P05L4GR4L8B06L8C","04L4BBB 
B","04L4GGGG 1 

1120 PLAY-L806P05L8BAG06L8EFGE", "04L4BB0 
5L4CC","04L4GGGG" 

1130 PLAVO6L4PO5L46R4O6L0P6 ,, ( "04L4BBBB" 
"04L46666" 

1140 PLAV06L4EL8PC05L4B. 06L8C" , "05L4CCP 
P" , "04L4GG6G■ 

1150 PLAVL106C. ", "05L1E. “, *05L1C. " 

1160 RETURN 
1170 REM 

1180 REM BRAHMS: ALLEGRETTO 
1190 REM 

1200 PLAV*T150O5L4C.L16D", “T150*,' T150" 
1210 PLAV05L2D+. " , *04L8CD + 605L8C04L86D + 

M 

1220 PLAY"05L8G.L16FL4PL8C.L16P","04L4FL 
46 + R4" ," 05L2C “ 

1230 PLAV05L2D+. " , “ 04L8CP + G05L8C04L88P + 

II 

1240 PLAV05L8A + L16G + L4PL8P. L16P4*, “04L4 
FG+R4*."05L2CR4" 

1250 PLAV05L2FL8G+.L16G" , "03L8B04L8PFAR 
4" , "R205L4P “ 

1260 PLAY"G5L2B»L8G.L16F , \ "04L8CD + G05C" 
1270 PLAV05L4CL8CL16DC04L8B05L8C", "03L8 
6+04PL4FF+” 

1280 PLAY''05L4PD + E","04L4GC03L4A+‘i"04L4 
B05L4CC" 

1290 PLAV05L4FA+. L86+-,“03L4A+04L4F6+" » 
"05L4CPC“ 

1300 PLAY"05L4PG.L16F","04L4A4P+F" 
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Seguito programma Musica con un MSX. 


1310 PLAV"05L16CI>C04L16B05116C14B + D", "04 
L46+L46F+" 

1320 PLAV05L2G06L8C.L16D","04L4F+D+P", ■ 
05R4R4L46" 

1330 PLAY"06L2D + ", "04L8CP + G05L8C04L8GII + " 
,"05L2G. " 

1340 PLAY“06L8G.L16FL4I>L8C.L16B", "04L4GL 
4 G + R 4 “,"06L2C05L4G+" 

1350 PLAY"06L2D+", ”04L8CP + G05U8C04Lb3I>+" 
,"05L2G. “ 

1360 PLAV"06L8A + .L16G + L4PL8P.L16B+. I ',"04 
L4F6+R4" , "061.20“ 

1370 PLAV"06L2FL8G+.L16G","03L8B04L8PFAR 
4","R206L4P" 

1388 PLAY"06L2P+L8G.L16F","04L8CD+G05C", 

" r 2 o 6 14 ci " 

1390 PLAY"06L4CL8CL16PC05L8B06L8C‘,"03L« 
G+04DL4FF+","r2o614c" 

14 00 PLAV06L4PP + E", "05L4B06L4CC","05L46 
GG" 

1410 PLAY“06L4FA+.L86+“, “Ù6L4CK", “05L46 
+04L4FG+" 

1420 PLAV06L4PG.L8F", " 05L2A + L4G +", "04L4 
A+D+F" 

1430 PLAY"06L16CPC05L16B06L16CL4P + P", "05 
L4CC04L4B","04L46+GG" 

1440 PLAY"06L2CL2C“,”05L4FEL2E","04L8CG0 
5L4CL2C" 

1450 RETURN 
1460 REM 

1470 REM PIABELLI : SONATINA 
1480 REM 

1490 PLAY“T150O6L2PL4F+P",“T150O4L8PAF+A 
DAF+A" 

1500 PLAY"05L4A.L8BL4AR4“,"0418PAF+APAF+ 
A" 

1510 PLAY"0612EL46E","O4L8C+A0AC+A6A" 

1520 PLAY"05L4A.L8BL4AR4","04L8C+A6AC+A8 
A" 

1530 PLAY"06L2PL8F+EPC+",“04L8PAF+APAF+A 


N 

1540 PLAV05L8B06L8C + 05L8B06L8C + 05L8B06L 
86F + E*, "04L2GE 11 

1550 PLAV06L8PF+EP05L8C + 06L8EP06L8C + ", " 
04 1 2A03L4A" 

1560 PLAV06L2PR2", "04L8PGF + 6L4PR4" 

1570 PLAY"T15806L2PL4F+P",“T15804L8PAF+A 
PAF+A" 

1580 PLAY"05L4A.L8BL4AR4","0418PAF+APAF+ 
A" 

1590 PLAY"06L2E14GE“,"04L8C+AGAC+A8A" 
1600 PLAV"05L4A.L8BL4AR4", "04L8C+A6AC+A8 
A" 

1610 PLAV-06L2PL8F+EPC+","04L8PAF+APAF+A 

M 

1626 PLAV“05L8B06L8C*05L8B06L8C+05L8B06L 
8GF+E*,"04L2GE" 

1630 PLAV06L8PF + EP05L8C + 06L8EP06L8C+", * 
0412A03L4A" 

1640 PLAY"06L2PR2",“O4L8PGF+0L4PR4" 

1650 RETURN 
1660 REM 

1670 REM titolo 
1680 REM 

1690 OPEN"GRP:"AS1 

1700 SCREEN2:C0L0R8,1,1:CLS 

1710 CIRCLE<125,85>,80,2,,,.8:BEEP 

1720 CIRCLE<125,85>,100,2,,,.8-BEEP 

1730 PAINT(32,85>,2:BEEP 

1740 PSET(70,50),1;PRINT*1," JQ<B4JBJB444<D<B44 

JB-0" : BEEP : COLORII 

1750 PSET<70,63>,1:PRINT*1," MUSICA CON 
UN" :BEEP:C0L0R4 

1760 PSET<73,84),lPRINT»i,“ M.S.X. 

“:BEEP:C0L0R15 

1770 PLAY“tl50o514or6or612c",“tl50o514*r 
6 -f r 6 12 * " , "tl50o514gr6ar612g* 

1780 PLAY"o411c","o411E", "o4U«" 

1790 PSET(70,104>,1:PRINT#1," di P.FERRA 
MI “ 

1800 FORA*1TO3900:NEXT:RETURN 


Re maggiore di Diabelli. 

Il programma 

Dato per scontato che abbiate letto 
almeno una volta il manuale di istruzio¬ 
ni allegato al vostro computer, per poter 
programmare facilmente dei brani mu¬ 
sicali con un MSX è necessario saper 
leggere le note da un pentagramma: 
questo non significa assolutamente che 
dobbiate saper suonare uno strumento, 
ma è sufficiente che riusciate a ricono¬ 
scere il nome e il valore di ogni nota 
senza preoccuparvi se questo ovviene 
con una certa lentezza. Usando un 


qualsiasi metodo in vendita nei negozi 
di dischi e strumenti musicali, dopo un 
paio di ore di esercizio avrete raggiunto 
l'abilità necessaria per programmare il 
sintetizzatore musicale di un MSX, alme¬ 
no per quanto riguarda l’istruzione 
Play. 

Un altro problema che si incontra è che 
l'istruzione Play legge le note in nota¬ 
zione anglosassone: problema che ri¬ 
guarda soprattutto l'ottava di riferimen¬ 
to su cui si sta lavorando. Al nostro Do 
corrisponde la lettera C, al Re la D e così 
via fino al Sol, a cui corrisponde la G, 
poi con il La si passa alla S, al Si corri¬ 
sponde la B e, a questo punto, tra la B e 


la C, passiamo all'ottava superiore. 

Esempio: 

alla scala: 

(ottava 1) Do Re Mi Fa Sol La Si 
(ottava 2) Do Re... 
corrisponde: 

(ottava 1) C D E F G A B 
(ottava 2) C D... 

Nulla cambia invece per quanto riguar¬ 
da il valore delle note. 

Vi ricordo infine che l'ottava viene cam¬ 
biata usando la lettera O seguita imme¬ 
diatamente dal numero corrispondente 
all'ottava desiderata, per gli intervalli si 
usa la lettera R seguita dal valore del 
tempo, per il volume usiamo V (n) dove 
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n è un numero compreso tra 0 e 7 e, 
infine, ci sono i comandi S e M che 
cambiano la forma e l'inviluppo dell’on¬ 
da e, di conseguenza, il timbro. Per la 
velocità di esecuzione usiamo all'inizio 
del brano la lettera T (n) con n compre¬ 
so tra 32 e 255. 

Due sono i modi di utilizzare l’istruzio¬ 
ne Play: il primo è quello di inserire tutte 
le istruzioni in una variabile stringa, da 
far leggere poi a un'unica istruzione 
Play, l'altro consiste nel ripetere l'istru¬ 
zione, contenente ciascuna poche note 
relative alle tre voci, per esempio le note 
(e le pause) di una musica. 

Per questo programma ho adottato il 
secondo metodo, inserendo nella prima 


istruzione Play il tempo T, cioè il numero 
delle semiminime eseguite in un minuto, 
e, quando era il caso, il volume da asse¬ 
gnare a ciascuna delle tre voci; poi, per 
ogni istruzione seguente l’ottava, il no¬ 
me e il valore della nota corrispondente 
a una misura (figura 1). Questo metodo 
allunga un po' il listato, ma in compen¬ 
so permette di poter controllare in ogni 
momento la situazione del programma 
e confrontarlo con lo spartito, rendendo 
immediato il ritrovamento di una even¬ 
tuale "stecca". Così facendo, inoltre, è 
possibile programmare brani presi da 
spartiti per strumenti a tastiera (tanto 
per intenderci, quelli con i pentagrammi 
in Chiave di Sol e in Chiave di Violino 


relativi alle due mani). L'unica limitazio¬ 
ne è quella che non devono esserci più 
di tre note suonate contemporanea¬ 
mente, poiché ciascuna nota va asse¬ 
gnata a una voce. Se un brano richiede 
aegli accordi a tre note di accompa¬ 
gnamento, è possibile rimediare sosti¬ 
tuendo a quest'ultimi degli accordi a 
duine. Vi consigliò infine di non alterare 
i valori della forma d'onda e dell'invilup¬ 
po quando trascrivete per le prime volte 
un brano dallo spartito al computer. 

Tornando ai brani contenuti nel pro¬ 
gramma, vediamo come possiamo 
“giocare" sulle istruzioni per modificar¬ 
ne l’esecuzione. Un primo esperimento 
è quello di inserire all'inizio di un brano, 

Figura 1 - Ecco come 
si rappresenta 
una parte di spartito 
con l’Istruzione Play. 


alla prima stringa del Play, la lettera VO 
a una o due voci, con il risultato di riu¬ 
scire a togliere il volume e ascoltare solo 
la melodia o l’accompagnamento (que¬ 
sto è anche un ottimo metodo per ricer¬ 
care errori che fanno stonare il brano). 
Provate ad ascoltare la Sonatina del 
Diabelli poi, dato il Break, editare la li¬ 
nea 1490 e inserire VO subito dopo gli 
apici della prima stringa: il risultato sarà 
quello di far eseguire al computer solo 
l'accompagnamento. 

Altro esperimento è quello di inserire, 
sempre alla linea 1490, al posto di VO le 
lettere S14M100, cioè una forma d'onda 
triangolare con periodo di inviluppo 
100: il risultato sarà quello di fare ese¬ 


guire la Sonatina del Diabelli a un coro 
di grilli. Se odiate i grilli inserite 
S2M3000, allora la melodia sarà esegui¬ 
ta da una spinetta (strumento adattissi¬ 
mo al brano in questione); ricordo che 
S2 è una forma d'onda triangolare-ret¬ 
ta. Un ultimo effetto che vi consiglio di 
provare sempre sulla linea 1490, è l’on¬ 
da a “dente di sega": digitate questa 
linea: 

1490 PLAY 

“S8M1900T20006L2DL4F + D ", 
"S8M1900T20004L8DAF +A" 
poi date il Run e ascoltate l'effetto. 

Per fare in modo che l'Inverno di Vivaldi 
sia suonato con un'ocarina da un grup¬ 
petto di soldati in marcia (sic!) riscrivete 
la linea 840 in questo modo: 

840 PLAY “TI4506L4CL8GFL4EL8DC", 
"S5M30T1450514CCCC", 
"S5M50T14504L4GGGG" 

Sostituendo alla linea così modificata il 
valore 255 in luogo del 145 dopo le lette¬ 
re T, i soldati si metteranno a correre. 
Poiché non c'è limite al cattivo gusto, 
ecco come fare per trasformare una 
Bourré di Bach in un "Tip-Tap": 

320 PLAY "T250O6L8EF + ", 
"S1M20T25004L8GE", 

"S1M20T250" 

Ora provate la stessa forma d'onda, ma 
con un periodo di inviluppo pari a 900 
(M900): la differenza è notevole. 

Vedete che, una volta memorizzato un 
brano è facile e divertente cambiare i 
parametri per ottenere effetti particolari 
o strumenti diversi senza dover ricorrere 
all'istruzione Sound, il cui utilizzo è e- 
stremamente più complesso e meno im¬ 
mediato. 

Sul programma non c’è molto da dire 
essendo formato semplicemente da un 
menu che tramite l’istruzione On-Gosub 
manda al sottoprogramma contenente 
il brano scelto. I REMarks contenuti nel 
listato vi aiuteranno a trovare i vari bra¬ 
ni. Vorrei soffermarmi sulla routine Tito¬ 
lo (nel quale troviamo il testo scritto nel¬ 
la pagina grafica Screen 2). Per ottene¬ 
re questo risultato basta procedere 
all’apertura di un file con l’istruzione: 

OPEN “GRP: " AS1 

e stampare la stringa mediante l’istru¬ 
zione Print# 1, "[testo]”; ovviamente al 
posto dell’istruzione Locate useremo 
Pset. ■ 
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ZX SPECTRUM 


Tasti funzione 
per Spectrum 
48 Kbyte 

Come facilitare l’input dei programmi 

di Massimo Modelli 


U na delle particolarità dello 
Spectrum che da principio la¬ 
scia perplessi ma che si rive¬ 
la poi molto comoda, è la di¬ 
sponibilità di tutte le parole chiave del 
BASIC con la pressione di un paio di 
tasti, cosa che permette di introdurre 
programmi in BASIC molto rapidamen¬ 
te. Tutto il funzionamento della tastiera 
per ottenere le parole chiave, i caratteri 
grafici, i vari simboli, ecc. è basato sull'u¬ 
so dei due tasti di Shift per modificare lo 
stato del cursore (L, K, E, G); quasi tutte 
le combinazioni dei due tasti di Shift con 
i diversi stati del cursore producono ri¬ 
sultati diversi, moltiplicando virtualmen¬ 
te il numero delle tastiere disponibili. 

Vi è però un caso in cui l'azione dei due 
tasti di Shift è la stessa per tutto un 
gruppo di tasti; se infatti si porta il curso¬ 
re nello stato "E", l'azione del Caps Shift 
e del Symbol Shift sui tasti delle prime tre 
file è la stessa e riporta la parola o il 
simbolo scritto in rosso sotto il tasto 
stesso. 

Vi sono quindi 28 tasti (escludendo i due 
Shift) ai quali si potrebbe utilmente as¬ 
segnare il compito di fornire dei testi 
particolari, realizzando cosi un'utile op¬ 
zione assente sullo Spectrum: i tasti fun¬ 


zione. 

Il programma che segue permette ap¬ 
punto di realizzare questa opzione ge¬ 
nerando un codice macchina del tutto 
autonomo e integrato nel funzionamen¬ 
to del sistema operativo. 

Le comodità offerte da questa opzione 
sono varie: è possibile ad esempio pre¬ 
memorizzare le chiamate a particolari 


routine (come la renumber) nella forma 
Randomize Usr XXX per averle disponi¬ 
bili con la pressione di un tasto, ma forse 
l’uso più comodo, grazie alla sua com¬ 
patibilità con l'Interfaccia 1, consiste nel 
ooter ottenere velocemente i comandi 
diretti ai microdrive, ad esempio ottene¬ 
re con un tasto le nove battute necessa¬ 
rie per "Save'fr" m”; “1;""". 


Listalo 1 

- Il listato Assembly. 


00010 

000212) 

J TASTIERA PROGRAMMABILE 

00030 

. *****************, 
» 

***** 

00040 

ORG OFAFFH 


mp 

00070 

DEFU START 

; indirizzo 

; delta routine 


00080 

;sottoprogrammi di 

attivazione e 

00090 

00100 

00110 

; spegni niente 


STI LO A,0FAH 

;rout on 

00120 

LD I,A 


00130 

IM 2 


00140 

00150 

RET 

;rout off 

00160 

ST2 IM 1 

00170 

00180 

RET 


00190 

; aggiornamento del 

contatempo e 

00200 

; test sulla ROM 


00210 

START PUSH AF 


00220 

PUSH HL 


00230 

PUSH BC 


00240 

PUSH DE 

;test ROM 

00250 

TEST LO A,243 

00260 

LO HL,0 


00270 

CP (HL) 


00280 

JR Z,C0NT 


00290 

POP DE 


00300 

POP BC 



00310 


POP 

HL 

00320 


POP 

AF 

00330 


EI 


00340 


RET 


00350 

; AGGIORNA OROLOGIO 

00360 

CONT 

LD 

HL,(23672),FRAMES 

00370 


INC 

HL 

00380 


LD 

(23672),HL 

00390 


LD 

A, H 

00400 


OR 

L 

00410 


JR 

NZ,KEYINT 

00420 


INC 

(IY+64) ;FRAMES3 

00430 

■INIZIO operazioni tastiera 

00440 




00450 

; veri fica stato del programma 

00460 

KEYINT 

LD 

HL,4DH 

00470 


PUSH 

HL ; PRE LOAD 

00480 



RETURN ADRES 

00490 


LO 

A,(RIT) 

00500 


AND 

A 

00510 


JR 

Z, TP1 

00520 


DEC 

A 

00530 


LD 

(RIT),A 

00540 


RET 


00550 

TP1 

LD 

A,(COUNT) 

00560 


AND 

A 

00570 


JR 

Z,LETKEY 

00580 




00590 

;Routine di 

trasferimento 

00600 

OUT 

LD 

HL,23611 

00610 


BIT 

5,(HL) ;FLAGS(5) 

00620 


RET 

NZ 

00630 


SET 

5,(HL) ;FLAGS(5) 






Il programma 

Il programma BASIC (listato 2) di cui è 
fornito il listato svolge due compiti: nella 
sua prima sezione si trovano le routine 
che permettono di editare, con possibili¬ 
tà di modifica, i testi che costituiscono le 
funzioni; la seconda parte del program¬ 
ma produce invece la routine in linguag¬ 
gio macchina che realizza i tasti funzio¬ 
ne, preparandola per lavorare all'indi¬ 
rizzo di memoria fornito dall'utente. 
Tutte le fasi del lavoro sono dirette dal 
computer in maniera interattiva, in mo¬ 
do da non necessitare di un particolare 
apprendimento per poter usare il pro¬ 
gramma. Vediamo comunque di descri¬ 
vere, anche con esempi, le fasi principali 
del lavoro. 

Dando il Run al programma viene visua¬ 
lizzato sullo schermo un fac-simile della 
tastiera dello Spectrum, con un cursore 
lampeggiante sul tasto corrispondente 
alla cifra 1; per mezzo dei tasti con le 
frecce è possibile spostare il cursore sul 
tasto a cui si desidera assegnare una 
particolare funzione, e con la pressione 
del tasto Space si può passare a definir¬ 
la. Supponiamo di voler assegnare al 


tasto J la funzione: 

LOAD "m"; 1;"" 

Poiché non è possibile fornire in un'in¬ 
put la parola chiave Load si dovrà utiliz¬ 
zare la funzione BASIC Chr$ con argo¬ 
mento 239, che è il codice numerico del 
“carattere" Load (provate a digitare co¬ 
me comando diretto Print Chr$ 239: sul¬ 
lo schermo compare appunto Load). 
Per fare ciò dovrete spostare il cursore 
prima delle virgolette, battere Chr$ 239 
+ e riportare il cursore all'interno delle 
virgolette. Successivamente digitate il 
resto dell'istruzione, facendo attenzio¬ 
ne, ogni volta che dovrete inserire le 
virgolette, a batterne due per far capire 
al BASIC che non intendete finire la 
stringa, ma inserire delle virgolette. La 
linea che inserirete sarà quindi la se¬ 
guente: 

CHR$ 239 +.. 

Rispondendo negativamente alla do¬ 
manda “Premi F per finire", ritornerete 
alla fase iniziale: portate di nuovo il cur¬ 
sore sul tasto J e premete lo Space, 
dovrebbe apparire sullo schermo la fra¬ 
se: 

LOAD "m"; li- 


che vi mostra la funzione che avete as¬ 
sociato a quel tasto; se vorrete modifi¬ 
carla, premete il tasto m, altrimenti il solo 
Enter. Se ridigiterete la istruzione prece¬ 
dentemente vista, aggiungendo in fon¬ 
do dopo tutte le virgolette i seguenti 
caratteri: 

+ CHR$ 8 

andandola a controllare la frase sem¬ 
brerà la stessa, ma al momento dell'uso 
avrete una sorpresa, in quanto il curso¬ 
re non si posizionerà dopo le virgolette, 
ma si inserirà tra di esse, dove dovrete 
solo digitare il nome del programma; il 
carattere Chr$ 8 corrisponde infatti al 
comando “cursore a sinistra”. 

La corrispondenza tra i caratteri e i 
codici numerici da associare alla fun¬ 
zione Chr$ si trova nella tabella in Ap¬ 
pendice A del manuale italiano. Al mo¬ 
mento dell’input il programma fornisce 
comunque i codici delle parole chiave 
più importanti che non si possono otte¬ 
nere quando si è in input. 

Una volta terminata la definizione delle 
funzioni si può passare alla seconda 
fase del lavoro e cioè alla preparazione 
e memorizzazione della routine in lin¬ 
guaggio macchina. Il programma vi- 


Seguito listato Assembly. 


00640 

LD 

HL,(INO) 

00650 

LD 

A, (HL) 

00660 

LO 

(IY-50),A ;LAST-K 

00670 

INC 

HL 

00680 

LO 

(INO), HL 

00690 

LD 

A,(COUNT) 

00700 

OEC 

A 

00710 

LD 

(COUNT),A 

00720 

RET 


00730 

,LETTURA TASTIERA 

00740 

LETKEY CALL 

028EH ;KEY-SCAN 

00750 

RET 

N2 

00760 

LD 

A,(IY+7) .MODE 

00770 

CP 

1 

00780 

JR 

NZ..TER 

00790 

LD 

A.D 

00300 

CP 

27H 

00310 

JR 

NZ,TER 

00820 

LD 

A, E 

00830 

CP 

OFFH 

00840 

JR 

Z, TER 

00850 

ANO 

07H 

00360 

CP 

3H 

0O870 

JR 

Z, TER 

00880 

CP 

4H 

00390 

JR 

Z, TER 

00900 

LO 

A,E : ESISTE 

00910 

LD 

b,o ,LA 

00920 

LD 

HL,TAB ; STRINGA? 

00930 

LOOP LO 

C,(HL) 


00940 


INC 

HL 

00950 


AND 

A 

00960 


JR 

z,fine 

00970 


DEC 

A 

00980 


AOD 

HL, BC 

LOOP 

00990 


JR 

01000 

FINE 

CP 

C 

01010 


JR 

Z,TER 

01020 


LD 

A 1 

(NOREP),A 

01030 


LD 

01040 


LO 

A, C 

01050 


LD 

(COUNT),A 

01060 


LO 

(INO),HL 

01070 


JR 

OUT 

01080 

TER 

LD 

A,(NOREP) 

01090 


AND 

A 

01100 


JR 

Z,BOARD 

01110 


XOR 

A 

01120 


LD 

(NOREP),A 

01130 

01140 


LO 

LD 

A, 6 

(RIT),A 

01150 


RET 


01160 

BOARD 

XOR 

A 

01170 

01180 


JP 

2C3H 

01190 

; Sezione dati 

01200 

RIT 

DEFB 

0 ;RITARDO 

01210 

COUNT 

DEFB 

0 ; CARATTERI 

01220 

NOREP 

DEFB 0 ;FLAG RIP 

01230 

INO 

DEFU 

0 

01240 

01250 

TAB 

END 

; inizio dei dati 
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Nicole Bréaud-Pouliquen 
LA PRATICA DELL APPLE 

Il Sistema APPLE II", il "BASIC Applesoft 
il disegno e la grafica arricchiti da esempi e esercizi 
130 pagine L. 10.000 
Codice 3410 

F. Franceschinl • F. Paterlinl 
Voi e il vostro Commodoro 64 

Uno strumento fondamentale per la comprensione e 
programmazione del Commodore 64. Con consigli, 
programmi testati, glossario e utili accenni di BASIC 
256 pagine L. 22.000 Codice 3470 

Alan Miller 

PROGRAMMI SCIENTIFICI IN PASCAL 

Un'opera base per chi desidera costruirsi una 
"libreria" di programmi in grado di risolvere i più 
frequenti problemi scientifici e ingegneristici 
372 pagine L. 25.000 
Codice 554P 

Carmine Belante 
L'home computer TI/99-4A 

Il BASIC, il BASIC Esteso e il microprocessore 
dell'home computer della T.l. Con programmi di 
utilità e svago. 192 pagine L. 15.000 
Codice 343B 

Giacomino Baisim - Giù Federico Baglioni 
IL FORTH PER VIC 20 E CBM 64 

La programmazione in FORTH e la sua 
implementazione sul Commodore VIC 20 e CBM 64 
150 pagine L. 11.000 
Codice 527B 

La Biblioteca che fa testo 
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Franco Fàppazzi • Giulio Occhi™ 

VOI E L’INFORMATICA 

L'opera che il manager moderno non può ignorare 
In 100 tavole: gli strumenti dell'Informatica, 
l'Informatica e l'Azienda, realtà e prospettive 
tecnologiche... 

116 pagine L. 15.000 
Codice 526A 

Roland Dubois 

CAPIRE I MICROPROCESSORI 

Un fantastico viaggio alla scoperta del "cervello’' 
elettronico: la funzione del microprocessore, 
delle memorie ROM e RAM, delle interfacce... 

126 pagine 1.10.000 
Codice 342A 

Gaetano Marano 
77 PROGRAMMI PER SPECTRUM 

Dalla Grafica alla Business Grafica, dalla musica 
alle animazioni, dai giochi all'elettronica... tutte 
le possibilità offerte dai più piccolo dei computer 
ISO pagine a colori 1.16.000 
Codice 555A 

Rita Bonelli-Daria Gianni 
ALLA SCOPERTA DEL VIC 20 

Un testo chiave per imparare a conoscere e usare 
uno dei Personal del momento. 

308 pagine L. 22.000 
Codice 3380 

Cassetta Programmi 1.15.000 
Floppy Programmi l. 25.000 
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ZX SPECTRUM 


sualizza la lunghezza complessiva della 
•outine (dati compresi) e si pone in atte¬ 
sa che l'utente determini l'indirizzo di 
memoria per il quale la routine dovrà 
■ssere rilocata; quello che viene mostra- 
•o (a fianco della scritta Inizio) è il più 
ilto disponibile e l'utente può modificar- 
o utilizzando i tasti 6 e 7. che lo diminui¬ 
scono o lo aumentano a passi di 256 
byte (non è possibile una regolazione 
dell'origine più fine per le caratteristiche 
della routine). 

Una volta determinata l'origine della 
routine il programma fornisce gli indiriz¬ 
zi delle due entry point utili: Start e Stop, 

• ispettivamente per attivarla e disattivar- 
a. L'ultima operazione da svolgere è 
chiaramente la memorizzazione su na¬ 
stro o cartuccia della routine cosi pre¬ 
parata, e per fare ciò il programma deve 
passarla in memoria, ponendola a parti¬ 
re da un indirizzo arbitrario scelto dall'u¬ 
tente; se si utilizza l’indirizzo di origine, la 
routine può subito funzionare e si pos¬ 
sono saltare per il momento le operazio¬ 
ni di salvataggio su nastro. Un consi¬ 
glio: prima di provare la routine è bene 
salvare il programma BASIC appena di¬ 
gitato, per evitare di perderlo se, in se¬ 
guito ad un errore di battitura dei codici 
contenuti nelle linee Data, il sistema si 
bloccasse. • 

La routine 

Supponiamo di aver preparato la routi¬ 
ne con tutte le (unzioni che desiderava¬ 
mo e di averla salvata su cassetta o 
cartuccia; a questo punto il programma 
BASIC non ci serve più e, dopo averlo 
eventualmente salvato per poter in se¬ 
guito definire nuove funzioni, lo possia¬ 
mo cancellare. A questo punto ogni vol¬ 
ta che lo desidereremo potremo dispor¬ 
re dei tasti funzione definiti seguendo 
questo procedimento: 

• modificare il valore di RAMtop con il 
comando Clear in modo da fare spazio 
alla routine; 

• caricare la routine, ricordando di spe¬ 
cificare l'indirizzo di origine, se essa è 
stata inizialmente salvata da un indiriz¬ 
zo diverso da origine; 

• attivarla con il comando Randomize 
Usr Start (gli indirizzi Origine, Start e 
Stop sono forniti dal programma BASIC, 
ed è sempre bene annotarseli, in quanto 
sono gli unici dati che servono per con¬ 
trollare la routine). 
































Da ora in avanti qualunque lavoro si 
svolga al computer questa routine farà 
parte integrante del sistema operativo, 
più precisamente delle routine di inter¬ 
rogazione della tastiera. Ogni qualvolta 
si premano contemporaneamente e in 
modo esteso (cursore "E") un tasto e il 
Caps Shift verrà resa, se esiste, la corri¬ 
spondente funzione: se nessuna funzio¬ 
ne è definita per quel tasto, verrà fornita 
la parola chiave o il simbolo scritto sotto 
al tasto. 

E' importante ricordarsi di disattivare la 
routine con il comando Randomize Usr 
Stop prima di riscrivere o caricare qual¬ 
cosa nella zona di memoria occupata 


da questa: infatti, il programma residen¬ 
te in memoria in quella zona viene ese¬ 
guito automaticamente (50 volte al se¬ 
condo) e se non vi risiede un program¬ 
ma coerente, la cosa più facile che suc¬ 
ceda è che la macchina si blocchi e 
necessiti quindi di un Reset. 

Come probabilmente avrete capito, il 
funzionamento della routine è basato 
sul "dirottamento del controllo dopo un 
interrupt”; in altre parole, in seguito ad 
un segnale di interrupt generato dalla 
ULA dello Spectrum il controllo non 
passa, come avviene normalmente, alla 
routine di lettura della tastiera, ma alla 
nostra routine dei tasti funzione; questa 


utilizza varie parti della routine per leg¬ 
gere la tastiera e al termine le ripassa il 
controllo. Poiché le routine della ROM 
"fantasma ” sono diverse, sia come con¬ 
tenuti che come indirizzi, la routine ese¬ 
gue un test preliminare sulla prima loca¬ 
zione di memoria per accertarsi di esse¬ 
re eseguita con la ROM giusta. 

Un consiglio: sullo Spectrum il comando 
New è particolarmente drastico, in 
quanto, oltre a cancellare i programmi e 
le variabili, reinizializza le variabili di si¬ 
stema e, cosa per noi rilevante, reinizia¬ 
lizza pure il valore del registro I e riporta 
la CPU nel modo di lavoro 1 (IM 1). Ai 
nostri fini è come se si fosse eseguito il 


Llctalo 2-11 programma BASIC. 

1 REM 

TRSTI FUNZIONE 
******************************** 

4- REM La FN x converte le eoo 
rdinate della tastiera (riga e 
colonna) in coordinate dello sch 
ermo 

5 def fn x <x ,y ) ■ <x-l) #3+y + (y ■ 
2 OR U =3) - (y «4.) 

10 PAPER 1: INK 7: BORDER 1: C 
LS 

14- REM valore della Ramtop 

15 LET X*60000: INPUT "RAMTOP 
a 60000 ? (y,n)",a«: IF a$="y" o 
R a$a"Y" THEN CO TO 18 

16 IF a*<>"n" AND a » < > "N" THEN 
BEEP .5,5: GO TO 15 

17 input "Uaiore Ramtop ",x 

18 CLEAR 
90 GO TC 
99 REM 

100 FOR i*0 TO 8: PRINT AT i 
PAPER 0,,: NEXT i: PRINT AT 
; : LET X =0: LET y*168 
110 FOR i*l TO 4.0: PRINT PAPER 
0; "1234567890OWERTYUIOPASDFGMJKL 
e C ZXCUBNMS b"(i) ; PAPER 4;" ", : P 
RINT PAPER 0;" PLOT X,U: DRA 

U 16,0: DRAU 0,-9: DRAU -lé,0: D 
RAU 0,9: LET x=x+24 
120 IF i=10 THEN PRINT PAPER 0' 
'TAB 2;: LET X=16: LET y*152 
130 IF i *20 THEN PRINT PAPER 0' 
'TAB 3J : LET X=23 : LET y*136 
14.0 IF i =30 THEN PRINT PAPER 0' 
TAB 2;: LET X=16: LET y»120 
ISO NEXT i: PRINT AT 9,0; INUER 
SE 1; INK 5; “ TASTI FUN 
Z I 0 N 

199 REM _ 

200 PAPER 8: OUER 1: PRINT 00;A 
T 0,0;"Posizionati con le frecce 

e premi SPACE" 

210 LET X *1: LET y*X: LET xl*X: 
LET y1*x: PRINT INK 9;AT x,x;"# 

220 FOR i*0 TO 0 STEP 0: PRINT 


r o 1000 

i*0 TÒ à: PBInT f 


l?è 


AT y*2-l,FN x (x ,y);"*";AT ui*2-l 
,FN X(x1,y1); INK 9;"*": LET X*x 
1: LET y*yl 

230 IF INKEY$=" " THEN OUER 0: 
GO TO 260 

240 LET yl*y+CINKEY*n"6" AND U< 
4) - ( INKEY$*"7" AND y>l): LET Xl* 
X + (INKEY$ = "8" AND X<10) - ( INKEY»* 
"6" AND X >1) : NEXT i 
250 REM valore della mezzafila 
[caps s . -U] =7; [A-G] *6, ... ; C1-5J = 
4; ... ; Cspace-B)*0 
260 LET mf*7-((y+3)*(x>5)+(-y+4 
) *(x <6) ) 

265 REM valori delle colonne;i 
tasti piu' esterni delle mezzefi 
le (caps s.,A,0,1,0,P...)vaigono 
4; i piu" interni (U,G,T...) va 
igono 0 

270 LET CO 1*4-( (X-l) * (X <6) + (10- 
X ) * (X >5) ) 

272 REM va io ra dei tasti; B*l,H 
*2. . .A=39,caps Shift *40 
275 LET Key SCO l*8+»f+1 
290 RETURN 

1000 rem Tirnmi-iitpTfrTiii 

1010 LET bi»"": FOR i=1 TO 40: L 
ET b$*b«+CHR« 0: NEXT i: GO SUB 
100 

1020 GO SUB 200: IF mf*3 OR mf-4 
OR Key *25 OR ney*40 THEN PRINT 
AT 10,0;"TASTO NON RIDEFINIBILE" 
,: BEEP .2,30: LET pep*4: GO TO 
1100 

1025 LET c«l: FOR i*l TO Key-1: 
LET C = C +1+CODE b*(C): NEXT i 
1030 IF NOT CODE b»(C) THEN GO T 
O 1070 

1035 PRINT AT 10,0;,,,,,,,, 

1050 PRINT AT 10,0;b*(C+l TO C+C 
ODE b $ ( C)) ;AT 0,0: INPUT "Premi 
m per modificare ";a*: IF a**"m" 
OR a|s"h" THEN LET b*=b$< TO C) 
+ b$(C + 1+CODE b*(C) TO ) : GO TO 1 
070 

1060 LET P e P *2 : GO TO 1100 

1080 INPUTA?™8fiP"PLOT 246 DR 
AU 252 RAND 249PRINT 245 SA 
UE 248 LOAD 239ENTER 13 CL 
s 251 BORDER 23lFunzione corr 
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sottoprogramma di Stop della routine: 
pertanto dopo il New sarà necessario 
riàttivare la routine al solito modo. E' 
possibile evitare ciò utilizzando al posto 
del New il seguente comando: Rando- 
mize Usr 4660. In questo modo del co¬ 
mando New viene eseguita solo la se¬ 
conda parte e cioè la cancellazione del 
programma e delle variabili BASIC: non 
c'è bisogno di dire che questo comando 
può comodamente venire definito con i 
tasti funzione sotto la lettera N (o A, ma 
attenti a non sbagliare). 

Nel listato 1 è riportato il programma 
Assembly dei tasti funzione, per permet¬ 
tere a chi lo volesse di operare delle 


modifiche, ad esempio unire la routine 
ad altre operanti automaticamente, per 
mezzo del "dirottamento del controllo 
dopo un interrupt”. Grosso modo le se¬ 
zioni della routine sono 6: 

• STI e ST2: sottoprogrammi di attiva¬ 
zione e di spegnimento (Start e Stop); 

• aggiornamento del contatempo e test 
sulla ROM; 

• verifica dello stato del programma; 
può essere in attesa di ricevere il co¬ 
mando per l'emissione di una funzione 
(lettura della tastiera) o in fase di trasfe¬ 
rimento dei caratteri del testo di una 
funzione; 

• Out; routine di servizio per il modo 


trasferimento; 

• Letkey: routine di servizio per il modo 
lettura; 

• sezione dati: finisce con Tab, che è la 
copia identica della variabile stringa BS 
del programma BASIC. Il formato dei 
dati è il seguente: per ogni tasto il primo 
valore riporta la lunghezza del testo as¬ 
sociato e i seguenti riportano il testo 
stesso; segue il dato per il tasto succes¬ 
sivo, ecc.. 

La tabella vuota (tutti i testi con lun¬ 
ghezza 0) occupa quindi 40 byte. ■ 


Seguilo lutato BASIC. 

ispondente IF LEN a*>255 

THEN PRINT RT 10,0;"TESTO TROPP 
0 LUNGO",: BEEP .2,30: GO TO 108 
0 

1085 LET pep =2 : IF LEN a*»0 THEN 
LET pep =4 __ 

1090 LET b*=b*< TO C)+a*+bfCC+1 
TO ): LET b*(C)=CHR* LEN lì 
1100 PRINT RT y*2-l,FN x(x,y); 0 
UER 1; PRPER P«P;"*": INPUT "pr« 
mi f per finire ";a*: IF a««"f' 
THEN GO TO 2000 
1110 GO TO 10 20 
2000 REM 

2010 FOR i =10 TO 21: PRINT RT i, 
0,,: NEXT i: PRINT RT 11,0; 

2020 LET len*180+LEN b$: LET org 
=255*256+255 

2030 LET org»org-256: IF org+lcn 
>65535 THEN GO TO 2030 
204.0 PRINT "Lunghezza ";len,"Ini 
zio ";org 

2050 PRINT «0;"Usa le frecce (6 
e 7) per cara- biare l'indirizzo 
di inizio, premi 0 per finir 
e " 

2060 IF INKEY$ = "0" THEN GO TO 21 
00 

2070 LET 0 rg *0 rg +286*((INKEY*»"7 
') - (INKEY*«"6") T : IF org + len>655 
35 THEN LET org»org-256: BEEP .3 
, 20 

2080 IF org <32768 THEN LET org »0 
rg+256: BEEP .3,20 . 

2090 PRINT RT 11,27;org: PRUSE 8 
GO TO 2060 „ 

2100 PRINT "Start at ";org+2,"S 
top at ";ora+9 
2110 LET orgl=INT (org/256)+l 

2120 INPUT "Forniscimi l'indiriz 
zo da cui caricare la routine 

"; ind : print "Indirizzo di carie 
amento attuale») ";ind 

2121 INPUT "Con quale nome salvo 
la routine?"; a $ : IF LEN at>10 0 

R LEN a $ < 1 THEN GO TO 2121 

2122 PRINT "Per caricare la rout 

ine usare; LORD .; a*;"""CODE 

IF indoorg THEN PRINT org 


2123 PRINT '"Per attivarla e dis 
attivarla RRNDOMIZE USR Start 
o Stop" 

2130 FOR i=ind TO ind+179: READ 
a: POKE i ,a : NEXT i: FOR i«l TO 
LEN b«: POKE i+ind+179,CODE b|(i 
): NEXT i 

214.0 SRUE a $CODE ind,len: PRINT 
»0;"Riavvolgi per la verifica": 
UERIFY a«CODE ind,len: STOP 
3000 DRTfi 11,org1,62,ora 1-1,237, 
71,237,94,201,23?,86,201,245,229 
, 197,213,62,243,33,0,0,190,40,6, 
209,193,225,241,251,201,42,120,9 
2,35,34,120,92,124 
3010 DflTR 181,32,3,253,52,64,33, 
77,0,229,58,174,0rgl,167,40,6,61 
,50,Ì74,org1,201,58 
3020 DRTfi 175,oro 1,167,40,27,33, 
59,92,203,110,192,203,238,42,17? 
,0rgl,126,253,119,206,35,34 
3030 DRTfi 177,orgl,58,175,orai,6 
1,50,175,or gl,201,205,142,2,192, 
253,126,7,254,1,32,52,122 
304Ó DRTfi 254,39,32,47,123,254,2 
55,40,42,230,?,264,3,40,36,254,4 
,40,32,123,6,0 

3050 DRTfi 33,179,ora 1,78,35,167, 
40,4,61,9,24.247,185,40,Ì4,62,1, 
50,176,orgl,121,50 
3060 DRTfi 175,orgl,34,177,ora 1,2 
4 , 166 ,58,176,org1,167,40,10.176, 
50, 176 ,org1,62, 6 , 60 ,174,orai 
3070 DflTR 201,175,195,195,2,0,0, 

9000 LET C1=64255: LET C2=63231: 

FOR i=0 TO 300: LET nl=PEEK (Cl 
+ i ) : LET n2cPEEK, (c2+i): PRINT i 
;TRB 8 ; INUERSE <n 1 <>n2); ni;TfiB 
18;n2: NEXT i 
9999 PRINT 65536-USR 7962 
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Nuovo torneo 
di Bridge 

Rivisitiamo il nostro programma 

per Apple II 

di Vincenzo Delle Cave 


N ei numeri 23 (Dicembre ’84) e 
24 (Gennaio '85) di Personal 
Software ho presentato un 
programma che elaborava i 
conti di un torneo di Bridge a coppie. 
Sollecitato da un amico che gestisce un 
simpatico circolo di Bridge a Roma, ho 
apportato a tale programma alcune 
modifiche che lo rendono più completo 
e più utile, soprattutto per quei lettori 
che organizzano in casa dei piccoli tor¬ 
nei. 

In questo numero pubblichiamo per 
comodità il listato di tutto.il programma, 
ma ci limiteremo a commentare esclusi¬ 
vamente le novità apportate al vecchio 
listato. Il limite del programma prece¬ 
dente era quello di elaborare la classifi¬ 
ca di un singolo torneo a coppie senza 
però prevedere la possibilità di elabora¬ 
re una classifica individuale tra tutti i 
giocatori partecipanti ad una serie di 
tornei, con l’eventualità di scartare i 
peggiori risultati. Supponiamo che un 
gruppo di amici decida di organizzare 
una serie di 12 tornei (anche piccoli, 4-5 
tavoli), di non giocare ogni torneo con lo 
stesso partner e infine di voler, in qua¬ 
lunque momento, una classifica indivi¬ 
duale in cui vengano scartati i tre peg¬ 
giori risultati di ogni giocatore. Ebbene, 
mentre per fare i conti di un torneo così 
piccolo non è certamente necessario il 
computer, il suo contributo però sarà 
senza dubbio notevole per attribuire 
volta per volta un punteggio a tutti i 
giocatori partecipanti al torneo; scarta¬ 
re i risultati peggiori e fornire la classifi¬ 
ca individuale aggiornata dopo ogni 
turno di gioco. 

Modifiche nella struttura dati 

Si sono resi necessari tre ulteriori file di 
testo in aggiunta a quelli già esistenti 
(Torneo e Dati). Tali file sono chiamati 
Anagrafica, Classifica, Turno. Il primo è 
un file random che contiene i nomi dei 
giocatori interessati alla classifica finale 
(max 100). Ogni giocatore è contraddi¬ 
stinto da un codice progressivo a partire 
da 1. Il secondo file, Classifica, è an- 
ch'esso di tipo random e contiene il pun¬ 
teggio che il programma attribuisce ad 
ogni giocatore in funzione del risultato 
conseguito nel singolo torneo (max 30 
tornei). Il terzo file, Turno, è invece di tipo 
sequenziale e contiene, a regime, il nu¬ 
mero dei tornei giocati. 
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Come usare il programma 

Una volta digitato il listato 1 e salvato 
col nome di Bridge-Men-Class e il listato 
2 col nome di Bridge-Cont-Class, si può 
lanciare il programma Bridge-Mem- 
Class che presenterà il seguente menu: 

1) gestione torneo; 


2) visualizza mani; 

3) fine; 

4) classifica individuale; 

5) inizializza classifica; 

6) variazione punteggi. 

La prima cosa da fare è digitare l'opzio¬ 
ne 5. A questo punto compare un sotto¬ 
menu del tipo 1) inserimento nomi; 2) 
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Vi informiamo 

che il vostro piccolo Spectrum 
è molto più grande. 







































Discovery, è l’unità a dischi più avanzata 
e più completa presentata fino ad ora per 
potenziare lo Spectrum; sfrutta i più moder¬ 
ni ritrovati della tecnologia nel campo dei 
dischetti. 

Il modello più economico, Discovery 1, com¬ 
prende: • Unità a dischetti standard da 3,5 
pollici. • Connettore passante per periferi¬ 
che. • Interfaccia joystick. • Porla per stam¬ 
pante parallela. • Uscita per monitor mono- 
cromatico. 

Discovery 1 può essere potenziato succes¬ 
sivamente aggiungendo un secondo disc dri¬ 
ve per mezzo del kit di espansione “Disco¬ 
very +”; in alternativa, è disponibile il 
“Discovery 2” già dotato di due drive. 
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Unità a dischetti: 





Tipo del disco standard da 3.5in 




Modello. 

.35401 




Numero delle tracce. . . 

. 40 




Numero delle facce . . . 

.1 




Capacità totale. 

. 250 Kbyte 




Capacità formattata .. . 

. 180 Kbyte 



w 

Accesso traccia-traccia . 

.3 ms 



Alimentazione. 

. . . .interna 



























Mscovery: 

il vostro Spectrum 

stema. 


Discovery è stato concepito in modo da 
funzionare con gli stessi comandi della 
"Interface 1” per permettervi l'uso, senza 
bisogno di modificare nulla, dei numerosi 
programmi disponibili su cassette o su car¬ 
tucce per microdrive. 

Discovery non occupa “RAM utente” dello 
Spectrum, per cui potete eventualmente uti¬ 
lizzare programmi su cassetta senza scolle¬ 
garlo dal computer. Superfluo diventa anche 
l’alimentatore Sinclair in quanto è la stessa 
unità (dotata di interruttore generale) ad ali¬ 
mentare lo Spectrum. 



Interfacce: 

• Connettore passante per allaccia¬ 
mento delle periferiche, da 56 poli a 
circuito stampato. 

• Porta |>er stampante parallela, com¬ 
patibile Centronics. 

• Interfaccia joystick: connettore a 9 
poli tipo“D"(compatibile Kcmpston) 

I • Uscita monitor: plug audio 

Alimentazione: 

• Tensione di rete: 220 Vac. 50 llz. 













Distribuito e garantito in Italia 
da Bit Shop Primavera. 
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CAMPANIA 


• Benevento - DE.VI COMPUTER. Via E. Goduti 
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(081 (8763676 • Salerno -GENERAL COMPUTER. 
C.so Garibaldi 56. Tel. (089)237835 


EMILIA-ROMAGNA 


• Bologna - EDI* SISTEMI BOLOGNA. V.le Pietra¬ 
me Bara 61/F, Tel. (051 >263032 • Fiorenzuola d'Arda 
CENTRO COMPUTER, C.so Garibaldi 125/A, 
Tel. (0523)983976 • Porli - HOME & PERSONAL 
COMPUTER, P.zza Mclozzo I, Tel. (0543)35209 • 
Lutto - SELLO ELETTRONICA. Via Magnapassi 
26. Tel. (0545)22601 • Parma - BIT SHOW. Borgo 
Parente 14/E. Tel. (0521)25014 • Piacenza - SO.- 
V.E.R.. Via IV Novembre 60. Tel. (0523)34388 • 
Reggio Emilia - MICROINFORMATICA. Via S. 
Giuseppe 4/A, Tel. (0522)34716 • Rlmiui - COM¬ 
PUTER SI IDI». Via Garibaldi44, Tel. (0541 ) 27691 • 
Sassuolo M1CROINFORMAT1CA. P.za Martiri 
Partigiani 31. Tel. (0536)802955 


FRIULI VENEZIA GIULIA 


• Trieste - COMPUTER SHOP. Via P. Reti 6. Tel. 
(040)61602 • Udine • P.S. ELETTRONICA. Via Ta- 
vagnacco 89/91, Tel. (0432)482086 


LAZIO 


• Rieti - ESSEEMMECL Via Cintia 70. Tel. 
(0746)447()4 • Roma COMPUTER MARKET. P.za 
S. Dona di Piave 14. lei. (06)7945493-EASY-BYTE, 
Via Ci. Villani 24/26, Tel. (06)7811519 


LIGURIA 


• Genova - COMPUTER CENTER. Via S Vincenzo 
109/R, Tel.(0l0)58l474 • Genova Sampicrdarena - 
COMPUTER CENTER. Via G.D. Storace 4/R.Tel. 
(010)454107 • Imperia - COMPUTER SHOP. Via A. 
Dot ia 45. Tel. (0183)275448 • La Spezia - l.L. ELET¬ 
TRONICA, Via Lunigiana 481, Tel. (0187)511739* 
Reno - DIGIT CENTER. Via B. Assordo 78. Tel. 
(0185)74252 


LOMBARDIA 


• Bergamo - SANDIT. Via S. Francesco D'Assisi 5. 
Tel. (035)224130 • Brescia - IL COMPUTER. Via 
Solferino 5, Tel. (030)42100* Busto Arsirlo -BUSTO 
BIT, Via Gavinann 17, Tel. (0331)625034 • Cesano 
Moderno - ELECTRONIC CENTER, Via Ferrini 6, 
Tel. (0362)520728 • Cinisello Balsamo - GBC ITA¬ 
LIANA. V.le Matteotti 66, Tel. (02)6181801 • Crema 
EL.COM., Via IV Novembre 56/58, Tel. 
(0373)83393 • Gallarale - S.E.D., Via Arnaldo da 
Brescia 2, Tel. (0331)795735 • Lecco - S.G.A. IN- 
FORM/NTICA, Via Leonardo da Vinci 7, Tel. 
(0341)361264 • Ialino MICRO COMPUTER, V.le 
Amendola 48, Tel. (0332)537536 • Mantova - AN- 
TEK COMPUTER. Via Cavour 69/71. Tel. 
(0376)329333 • Milano - GBC ITALIANA. Via Pc- 
trclla 6. Tel. (02)2041051 - GBC ITALIANA. Via 
Cantoni 7. Tel. (02)437478 - LAS VEGAS. Galleria 
Manzoni 40. Tel. (02)705055 • Monza - I MI. Via Az- 



zonc Visconti 39, Tel. (039)388275 • Pavia - M3 
COMPUTERS. V.fc C. Battisti 4/A. Tel. 
(0382)31087 • Sesto Calende - J.A.C. NUOVE TEC¬ 
NOLOGIE, Via Matteotti 38. Tel. (0331)923134 • 
Varese - SUPERGAMES COMPUTER, Via Carrob¬ 
bio 13. Tel. (0332)241092 • Vigevano - VISENTIN, 
C.so Vittorio Emanuele 82, Tel. (0381 )83833 • Vo¬ 
ghera - BYTE ELETTRONICA, Via Matteotti 65. 
Tel. (0382)212280 


MARCHE 


• Ancona - CESARI, Via De Gaspcri 40. Tel. 
(071 >85620 • Macerala - CERQUETELLA. Via Spa¬ 
lato 126. Tel. (0733)35344* Senigallia-C.I.D.I., Via 
Maicrini 10, Tel. (071)659131 


MOLISE 


• Campobasso - SISTEMA, Via Monsignor Bologna 
10. Tel. (0874)94795 • Termoli - ROSATI COMPU¬ 
TER, Via Martiri della Resistenza 88, Tel. 
(0875)82291 


PIEMONTE 


• Alba - PERSONAL & HOME COMPUTER. Via Pa- 
ruzza 2. Tel. (0173)35441 • Alessandria - BIT SY¬ 
STEM, Via Savonarola 13. Tel. (0131)445692* Biel¬ 
la - NEGRINI, Via Tripoli 32/A. Tel. (015)402861 • 
Cuneo - TI I F.M A. Via Statuto 10. Tel. (0171 )60983 • 
Patria Canavese • MISTER PERSONAL, Via Cape¬ 
rai Cattaneo 52, Tel. (0124)428344 • Torino - A. B. 


BIT SHOP 
primavera 



LA PRIMA RETE DI SPECIALISTI 
IN PERSONAL COMPUTER. 


BIT SHOP PRIMAVERA S.p.A. 
VIA C. FARINI 82, 20159 MILANO 
TEL (02)6880429/68882171 


COM PUTER. C.so Grosseto 209. Tel. <011)2163665 
- COMINFOR SISTEMI. C.so B. Tclcsio 4/B. Tel. 
(011)793007 - COMPUTER SHOP. Via Nizza 91. 
Tel. (011 >6509576 - DUEGI, C.so Racconigt 26, Tel. 
(011)3358756 - ZUCCA COMPUTER. Via Tripoli 
179, Tel. (011)352262 • Verbanla-lntrn ELLIOTT 
COMPUTER SHOP. P.zza Don Minzoni 32. Tel. 
(0323)43517 • Vercelli - ANALOG. Via Dionisotti 
18. Tel. (0161)61105 


PUGLIA 


• Bari - NUOVA HAI.ET ELECTRONICS. Via 
Eslramurale Capruzzi 192, Tel. (080)228822 - SIS¬ 
MI I .('.so Cavour 146, Tel. (080)540733 - TECNO- 
SISTEMI. P.zza Garibaldi 55, Tel. (080)210084 • 
Poggia - SINFOR. V.le Europa 44/46, Tel. 
(0881132579 • Lecce - CAMEL ELETTRONICA E 
COMPUTER. Vai Marinosei 1/3, Tel. (0832)592861 

• Taranto - SUD COM PUTER. Via Polibio 7/A. Tel. 
(099)338041 


SARDEGNA 


• Cagliari - BIT SHOP. Via Zagabria 47. Tel. 
(070)490954 


SICILIA 


• Caltanissetta • ELEONORI & /VMICO, C.so Um¬ 
berto I 254/256, Tel. (0934)25610* Catania - ARIA 
NUOVA, P.zza Lanza 16,Tel. (095)438573 • Messi¬ 
na - TEMPO REALE. Via del Vespro 71, Tel. 
(090)773983 • Palermo - INFORMATICA COM¬ 
MERCIALE. Via Notarbartolo 23/B. Tel. 
(091)291500 • Siracusa - LOGOL SYSTEM, V.le 
Scala Greca 339/9, Tel. (0931 >53244 


TOSCANA 


• Firenze - ANDREI CARLO & C., Via G. Milanesi 
28/30, Tel. (055)472810 - ELETTRONICA CEN- 
TOSTELLE. Via Ccntoslcllc 5/A, Tel. (055)610251 

• Livorno - C.P.E. ELETTRONICA, Via Paoli 32. 
Tel (0586)27357 • Lucca - LOGOS INFORMATI¬ 
CA, V.le S. Concordio 160, Tel. (0583)55519* Pisa- 
IT-LAB, Via XXIV Maggio 101, Tel. (050)552590 - 
TECNINOVAS COMPUTER, Via Emilia 36, Tel. 
(050)502516 • Pistoia • C.D.E., V.le Adua 350, Tel. 
(0573)400712 • Prato C. BARBAGLI ELETTRO¬ 
NICA. Via E. Boni 76/80. Tel. (0574)595001 • Via¬ 
reggio - C.D.E.. Via. A. Volta 79. Tel. (0584(942244 


TRENTINO ALTO ADIGE 


• Bolzano BONTADI, P.zza Verdi IS/B. Tel. 
(0471)971619* Rovereto - S.E.D.A., Via l ontana 8/ 
B. Tel. (0464)34506 • Trento - S E D A., Via Sigitele 
7/1. Tel. (0461)984564 


UMBRIA 


• Perugia - STUDIO SYSTEM, Via D*Andrcolto49/ 
55. Tel. (075)754964 


VALLE D’AOSTA 


• Aosta - INFORM/VTIQUE. Av. Du Conscil des 
Commis 16. Tel. (0165)362242 


VENETO 


• Bussano del Grappa RIDARÒ, Via Jacopo da Pon¬ 
te 51 . Tel. ( 0424)228 IO* Castelfranco Veneto - E.D.S., 
Vìa S. Pio X 154 . Tel. ( 0423)497151 • Collegllano Ve¬ 
neto - E.D.S.. V.le Italia 132 . Tel. ( 0438)62345 • Mi¬ 
rano - S/WING ELE TTRONICA, Via Gramsci 40 , 
Tel. ( 041)432876 * Padova - COMPUTER POINT. 
Via Roma 63 , Tel. ( 049)22564 - S.I.C. ITALIA. Via 
Nicolò Tommaseo 13 . Tel. ( 049)663133 • San Doni 
di Piave - COMPUTIMI:. P.zza Rizzo 61 . lei. 
( 0421)50474 • Venezia - PERSONAL COMPUTER, 
Cannaregio 5894 . Tel. ( 041)29040 • Verona - CHIP 
COM PUTER. Stradone S. Fermo 7 . Tel. ( 045)21255 

• Vicenza - A.T.R.. Via del progresso 7/9, Tel. 
(0444)S646II 
































































Nuovo torneo di Bridge 



Listato 1 - li programma Brldge-Mem-Class. 


tO CLEAR 

12 DIM PP(25,120) 

13 DIM PA < 41,3): REM MATRIC 

EDEI PUNTEGGI E DELLE COPPIE 
DA INSERIRE 

14 DIM CLX.<100,2> 

15 DIM RECTI <100) 

16 DIM RCEXC100) 

17 DIM GG*<100) 

30 REM 

31 W = 0:22* = "S":D* = CHR* (4) 

33 MM = 0:MEN1 = - 1 

34 MP = 0 

35 HOME 

36 INVERSE 

37 HTAB 10: PRINT "CIRCOLO I PU 

GLI ESI M 
33 NORMAL 

3? PRINT : PRINT "PROGRAMMA PER 
IL CALCOLO DEGLI" 

41 PRINT "SCORES IN UN TORNEO MI 


44 

TCHELL " 

VTAB 6: INVERSE : 

PRINT "VINC 


EN2G DELLE CAVE 

-1934 " 

45 

PRINT "VIETATE LE 

COPIE' ! 1 

50 

“ : NORMAL 
VTAB 9: PRINT "1) 

GESTIONE TO 

53 

RNE0“ 

PRINT : PRINT "2) 

VISUALI22A2 

55 

IONE MANI" 

PRINT : PRINT “3) 

FINE" 

56 

PRINT : PRINT ”4) 

CLASSIFICA 

57 

INDIVIDUALE " 
PRINT : PRINT ”5) 

INI 2IALI 22A 

53 

CLASSIFICA “ 
PRINT : PRINT "6> 

VARIA2I ONE 


PUNTEGGI " 

5? VTAB 23: INPUT "SCEGLI FRA LE 
SEGUENTI OP2IONI "j KK* 

60 KK = VAL <KK*> 

62 IF KK = 1 THEN 197 

64 IF KK = 2 THEN 8500 

66 IF KK = 3 THEN 9000 

67 IF KK = 4 THEN 1000 

63 IF KK = 5 THEN 1500 

69 IF KK = 6 THEN 7000 


modifica nomi. Digitare 1 e inserire l'e¬ 
lenco dei giocatori partecipanti alla 
classifica finale. Con l'opzione 2 si po¬ 
tranno eventualmente modificare tali 
nomi. 

Il programma riempie il file Anagrafica 
attribuendo un codice progressivo in 
ordine di inserimento dei nomi, e inizia- 
lizza a -1 il file Classifica e a 0 il file 
Turno, (per i nomi usare max 30 carat¬ 
teri) 

L'opzione 4 del menu principale per¬ 
mette a questo punto di avere l’elenco 
dei giocatori col relativo punteggio (0 
ovviamente) nell'ordine di inserimento. 
Digitare a questo punto 4; alla domanda 
numero turni da eliminare rispondere 
con -1 ed attendere la stampa; tale 
stampa tornerà utile in seguito. Ora si 
può iniziare ad eseguire i conti del primo 
torneo selezionando l'opzione 1. 

Al termine dei conti viene stampato il 
prospetto relativo e la classifica del sin¬ 
golo torneo. 

Quindi, e questa è la variante rispetto al 
programma Bridge-Conti presentato 
precedentemente, il programma chiede 
di inserire i codici di tutti i giocatori par¬ 
tecipanti al torneo, sempre che si desi¬ 
deri aggiornare la classifica dei gioca¬ 
tori. 

Tali codici sono quelli che il program¬ 


ma aveva attribuito ai giocatori durante 
la fase di inserimento nomi (inizializza- 
zione). 

Per inserire tali codici ci tornerà senz'al¬ 
tro utile la stampa ottenuta al termine 
della fase di inizializzazione. 

Può capitare che partecipi a un torneo 
qualche giocatore che non faccia parte 
dell'archivio Anagrafica, cioè che non 
partecipa alla classifica finale: tali gio¬ 
catori verranno identificati col codice 
99. 

Terminata questa fase viene stampata 
una classifica delle coppie Nord-Sud ed 
Est-Ovest con a fianco il punteggio che 
il programma attribuisce alle coppie, in 
funzione della classifica ottenuta. (Tale 
punteggio è ottenuto come se la classifi¬ 
ca finale rappresentasse un ipotetico 
"score" del torneo, cioè la prima coppia 
classificata rende 2-*(x-1) punti, dove x 
è il numero di tavoli del torneo, e cosi via 
per gli altri piazzamenti). 

A questo punto il programma provvede 
a riempire il file Classifica. Tale file non è 
altro che una matrice di 100 righe (nu¬ 
mero max giocatori partecipanti alla 
classifica finale) e 30 colonne (numero 
max di tornei della classifica finale). In 
questo modo viene aggiornata la colon¬ 
na di tale matrice relativa al torneo gio¬ 
cato. 


Classifica individuale 
(opzione 4) 

Il programma chiede il numero di risul¬ 
tati che si desidera scartare (max 5, e 
comunque un numero inferiore al nu¬ 
mero di tornei giocati) e il numero di 
giocatori interessati alla classifica. Il 
problema della eliminazione dei risultati 
è stato risolto molto semplicemente. In 
fase di inizializzazione, come già detto, 
tutti i record del file Classifica vengono 
inizializzatì a -1. Per cui, se per esempio 
dopo 10 tornei per il giocatore di codice 
20 sono presenti 3 campi col valore -1, 
ciò sta a significare che tale giocatore 
non ha giocato 3 tornei; pertanto se si 
voleva una classifica che scartasse i 
quattro peggiori risultati, per tale gioca¬ 
tore si dovrà scartare un solo punteg¬ 
gio. Il numero di risultati utili per ogni 
giocatore è perciò RU = TU - NT (se 
Cont < NT), oppure RU = TU -Contese 
Cont > NT), dove TU è il numero di 
tornei giocati, NT è il numero di tornei da 
scartare, Cont è il numero di tornei non 
giocati. 

Con tale procedimento è bastato ese¬ 
guire un ordinamento decrescente dei 
primi TU elementi del vettore contenente 
i punteggi del giocatore ed eseguire poi 
la somma dei primi RU elementi. 




Per il giocatore dell'esempio, verranno 
in tal caso scartati i tre -1 relativi ai 
tornei cui non ha partecipato e il peg- 
gior risultato conseguito. 

Il programma a questo punto effettua 
una conversione codice-nome del gio¬ 
catore accedendo al file Anagrafica e 
stampa la classifica aggiornata dei gio¬ 
catori interessati. Successivamente vie¬ 
ne stampato un prospetto, ordinato per 
codice, del giocatore in cui è evidenzia¬ 
to il nome del giocatore e i punteggi 
ottenuti in tutti i tornei disputati. 
L’opzione 6 del menu principale con¬ 
sente di correggere eventuali errori do¬ 
vuti all'Inserimento di codici errati du¬ 
rante l’esecuzione del programma Brid¬ 


ge-Cont-Class. Ciò infatti comportereb¬ 
be l'attribuzione di un punteggio ad un 
giocatore invece che ad un altro, pre¬ 
giudicando, ovviamente, la classifica fi¬ 
nale di tutti i giocatori. Se si dovesse 
verificare tale inconveniente è necessa¬ 
rio selezionare tale opzione e successi¬ 
vamente digitare il numero del torneo 
dove si è verificato l'errore, il codice del 
giocatore interessato, e il punteggio e- 
satto (inteso come punteggio-classifica 
calcolato col solito metodo). 

Illustriamo ora brevemente le linee di 
programma relative alle modifiche ap¬ 
portate. 

A) Per il programma Bridge-Mem-Class. 
50-70 - Nuovo menu principale. 


1300 - Stampa prospetto punteggio tor¬ 
nei. 

1301-1340 - Stampa prospetto punteg¬ 
gio tornei. 

1500-2110 - Routine di inizializzazione 
della classifica: fase di inserimento e 
modifica nomi. 

3000-3070 - Semplice routine di sort (al¬ 
goritmo Shell-Sort) molto veloce. 

B) Per il programma Bridge-Cont-Class. 
1900-3700 - Aggiornamento del file 
Classifica in base ai codici dei giocatori 
ed in funzione della posizione ottenuta: 
incremento del file Turno contenente il 
numero di tornei giocati e stampa dei 
punti classifica ottenuti dalle varie cop¬ 
pie. 


Seguito programma Bridge-Mem-Class. 


70 

GOTO 35 

197 

REM 

207 

REM 

217 

REM 

227 

HOME 

237 

INPUT “N.RO MANI Gl0CATE(BOA 
RDS)";N 

240 

IF N > 40 THEN HOME : GOTO 
237 

247 

REM 

257 

INPUT “DA QUANTE COPPIE E' S 
TATA GIOCATA OGNI MANO ? " jX 

260 

IF X > 21 THEN HOME : GOTO 
257 

267 

REM 

270 

RIC = X 

277 

PUNTMED = X - 1 

287 

XX = X + 5 

297 

INPUT “QUANTI TAVOLI SONO ? 

“ jYY 

300 

IF YY > 40 THEN HOME : GOTO 
297 

307 

NUM = INT <YY / 2) 

317 

FLAG = YY - INT (YY / 2) * 2 
: REM FLAG=1 TAVOLI DI SPAR 

I,FLAG=0 TAVOLI PARI 

327 

REM 

337 

REM 

347 

REM 

357 

REM 

367 

REM 

377 

REM 

387 

REM 

397 

REM 

407 

REM 

417 

REM 

427 

REM 


437 REM 
467 REM 
477 REM 
487 REM 

493 REM 

494 REM 
496 REM 

499 REM INIZIO ROUTINE NUOVA 

500 FOR NB = 1 T0 N 
510 HOME 

515 INVERSE : HTAB 15i PRINT “BO 
ARO N. ";NB: NORMAL ! PRINT 
: PRINT : PRINT 

520 INPUT "NUMERO PRIMA COPPIA N 
—S "•KK$ 

530 PA<1,1) = UAL (KK*> 

540 VTAB 10: PRINT "Qk? GET 
KK* 

550 IF KK* = “N" THEN 510 

560 IF KK* < > "S" THEN 540 

570 PA<1,3> = PA(1,1) + 100 

580 GOSUB 6000 

590 FOR I = 1 TO X 

600 PP<I,NB * 3 - 2) = PA(1,1) 

610 PP<1,NB * 3> = PA<I,3) 

620 NEXT I 
630 PRZ = 0 

635 FOR I = 1 T0 X :PA(I ,2) = 338 
8: NEXT I 
640 GOSUB 5000 
650 FOR I = 1 TO RIC 
660 PP(I,NB * 3 - 1) = PACI,2) 

670 NEXT 1 

680 NEXT NB 

690 GOSUB 3000 

700 IF MP = 0 THEN 910 

710 PRZ = RIC 

720 FOR NB = 1 TO N 

730 HOME 


60 




Nuovo torneo di Bridge 



750 FOR I = 1 TO X 

760 PA ( I , 1 ) = PPd.NB « 3 - 2) 

770 PA(1,3) = PP<I,NB » 3) 

780 NEXT I 

790 FOR I = 1 TO RIC 

800 PACI,2) = PPd ,NB # 3 - 1) 

810 NEXT I 

815 FOR I = RIC ♦ 1 TO X:PA<I,2) 

» 8888: NEXT I 
820 OOSUB 5000 
830 FOR I = RIC + 1 TO X 
840 PP<1,NB » 3 - 1) = PA(I,2> 

850 NEXT I 
860 NEXT NB 
865 RIC = X 
870 GOSUB 8000 
910 GOTO 8705 

1000 REM CLASSIFICA INDIVIDUALE 

1001 CLEAR 

1002 DIM PPX(100,31): DIM CLXdO 
0,2): DIM RECXdOO): DIM RCE 
X(100 > : DIM GG*(100): DIM Gl 
*(100) 

1003 D* = CHR* < 4) 

1005 CNT = 0 

1010 MENI = - 1 : ZERO = OtSUMX = 

0 

1020 PRINT : PRINT D*;"OPEN TURN 
0 “ 

1030 PRINT D*;"READ TURNO" 

1040 INPUT TU : UT = TU 
1050 PRINT D* j 11 CLOSE TURNO” 

1060 HOME : INPUT "N.TURNI DA EL 
IMI MARE (MAX. 5) "j NT*:NT = 
UAL (NT*) 

1070 IF NT > 5 OR NT > TU - 1 THEN 
1060 

1080 HOME : INPUT “N.RO GIOCATOR 
I INTERESSATI (MAX 100) "iNG 
*:NG = UAL (NG*> 

1090 IF NG > 100 THEN 1080 
1100 PRINT : PRINT D*;"OPEN CLAS 
SI FICA,LI 50” 

1110 FOR J = 1 TO NG 
1120 PRINT D*;"READ CLASSIFICA,R 
” J 

1130 FOR I = 1 TO TU 

1140 INPUT RECX(I): IF RECX(I) = 

- 1 THEN CNT = CNT + 1 
1 1 50 NEXT I 
1160 GOSUB 3000 

1170 IF CNT > NT THEN RU = TU - 
CNT: GOTO 1190 
1180 RU = TU - NT 
1190 FOR I = 1 TO RU 
1195 IF RECXd) < 0 THEN 1210 
1200 SUMX = SUMX + REC’/.d) 

1210 NEXT I 

1220 CLX(J,1) = J:CLX(J,2) = SUMX 


1221 SUMX = 0 :CNT « 0 

1225 PRINT J 

1 230 NEXT J 

1240 PRINT D* j “CLOSE CLASSIFICA” 

1242 UT = NG: FOR I = 1 TO NG: REC 

I) = CLX (1 ,2) : RCEX ( I) = CL 
Xd , 1 ) : NEXT I 

1243 GOSUB 3000 

1244 PRINT : PRINT D*i"OPEN ANAG 
RAF ICA,L30" 

1245 FOR I = 1 TO NG 

1246 PRINT D*; " READ ANAGRAFI CA,R 
" RCEX( I ) 

1247 INPUT GG*(I ) : Gl *( RCEX(I)> = 

GG*(I ) 

1248 NEXT I 

1250 PRINT : PRINT D*j”PR41” 

1260 PRINT “CLASSIFICA DOPO "jTU 
5“ TURNI DI GIOCO E ")NT ;“ R 
ISULTATI SCARTATI”: PRINT : PRINT 
: PRINT 

1270 FOR I = 1 TO NG 

1280 PRINT GG*(I)j SPC( 30 - LEN 
(GG*(I)));REC'/.(I> 

1290 NEXT I 

1300 PRINT : PRINT D*}”OPEN CLAS 
SIFICA.L150” 

1301 FOR I = 1 TO NG 

1302 PRINT D*i"READ CLASSIFICA,R 
"I 

1303 FOR J = 1 TO TU: INPUT PPX( 

I , J) 

1304 NEXT Jt NEXT I 

1305 PRINT D*}"CLOSE CLASSIFICA" 


1306 PRINT : PRINT t PRINT : PRINT 
: PRINT : PRINT : PRINT SPC( 



30) { 


1308 

FOR I = 1 TO TU 


1310 

I* = STR* (I) 


1312 

PRINT I*; SPC( 4 - 
>>! 

r 

m 

Z 

✓N 

►-* 

1314 

NEXT I 


1316 

PRINT : PRINT 


1318 

FOR I = 1 TO NG 


1320 

PRINT G1♦(I); SPC( 
(Gl*(I))); 

30 - LEN 

1322 

FOR J = 1 TO TU 


1324 

PP* = STR* (PPX(I, 

J)) 

1326 

IF PP* = ”-1" THEN 

M 

PP* = 

1328 

PRINT PP*j SPC( 4 
P*) ) ; 

- LEN (P 

1330 

NEXT J 


1334 

PRINT 


1336 

NEXT I 


1340 

PRINT D*;"PR40": GOTO 10 

1500 

REM INIZIALI ZZA 

CLASSI FIC 


A 


61 







Seguito programma Brldge-Mem-Clata. 

1502 HOME : PRINT "INIZIALIZZAZI 
ONE CLASSIFICA": PRINT "CONF 
ERMATA? (S/N) "j: 6ET KK* 

1504 IF KK* < > "S" THEN 30 

1505 HOME : INVERSE : HTAB 8: PRINT 
"FASE DI INIZIALI22AZI ONE": NORMAL 

1506 VTAB 10: PRINT "1> INSERÌME 
NTO NOMI": PRINT : PRINT "2) 

MODIFICA NOMI ": VTAB 23: PRINT 
“COSA SCEGLI? INPUT KK* 

1508 IF VAL (KK*) = 0 OR VAL < 

KK») > 2 THEN 1506 
1510 IF VAL (KK*) = 2 THEN 1600 

1512 HOME : INPUT “N. GIOCATORI 
INTERESSATI "-,NG*:NG = VAL 
(NG*) 

1514 HOME : PRINT "INSERISCI I N 
OMI DEI GIOCATORI ": PRINT : 

PRINT 

1516 FOR I = 1 TO NG 

1518 PRINT I;: HTAB 5: INPUT GG* 

<I): NEXT I 

1520 PRINT : PRINT D*s“OPEN ANAG 
RAFICA,L30“ 

1522 FOR I = 1 TO NG 

1524 PRINT D*;“WRITE ANAGRAFICA, 

R" I 

1526 PRINT GG*(1): NEXT I 
1528 PRINT D*;"CLOSE ANAGRAFICA" 

1530 GOTO 2010 
1600 REM MODIFICA NOMI 
1602 HOME : PRINT "INSERISCI COD 
ICE DA MODIFICARE ": INPUT N 
G*:NG = VAL (NG*) 

1604 PRINT “INSERISCI NUOVO NOME 
": INPUT GC* 

1606 PRINT : PRINT D*;"0PEN ANAG 
RAFICA,L30" 

1608 PRINT D* j"WRITE ANAGRAFICA, 

R"NG 

1610 PRINT GC* 

1612 PRINT D* j"CLOSE ANAGRAFICA" 

1616 VTAB 22: PRINT "TERMINATO ( 

S/N) “; : GET KK* 

1618 IF KK* < > "N" THEN 10 

1620 GOTO 1602 

2010 PRINT : PRINT D*;"OPEN CLAS 
SI FI CA , LI 50 “ 

2020 FOR I = 1 TO 100 

2030 PRINT D*;"WRITE CLASSIFICA, 

R" I 

2040 FOR J = 1 TO 30: PRINT MENI 
: NEXT J 

2050 NEXT I 

2060 PRINT D*j”CLOSE CLASSIFICA" 


2070 PRINT : PRINT D*;”OPEN TURN 
0" 

2080 PRINT D*i"URITE TURNO" 

2090 PRINT ZERO 

2100 PRINT D*:“ CLOSE TURNO" 

2110 GOTO 10 

3000 REM GOSUB ORDINAMENTO 
3010 FOR G = 1 TO UTiM = 1 
3020 M = 2 * M: IF M < = UT THEN 

3020 

3030 M = INT (M / 2) : IF M = 0 THEN 
RETURN 

3035 IF UT = M THEN 3030 
3040 FOR G = 1 TO UT - M:C = G 
3050 D = C + M: IF RECX(C) > = R 

EC/.(D) THEN 3070 

3060 AAX. = REC/.CC) :RECX.(C) = REC/. 
<D):REC/.(D) = AA/.:AA/. = RCEX 
( C) : RCEX< C) = RCEX(D) :RCE/.(D 
) = AA/.:C = C - M : IF C > 0 THEN 
3050 

3070 NEXT : GOTO 3030 
5000 HOME 

5010 22* = "N-S PUNTEGGIO E-0 
BOARD N." 

5030 INVERSE : PRINT 22*: HTAB 3 
9: VTAB 1: PRINT NB: NORMAL 
5040 FOR I = 1 TO X 
5050 VTAB I + 1 : HTAB 1 : PRINT P 
A( 1,1) 

5055 VTAB 1+1: HTAB 3: IF PA(I 

,2) = - 9999 THEN PRINT "M 

": GOTO 5070 

5056 VTAB I + 1: HTAB 8: IF PA<I 

,2) = 8888 THEN PRINT " ": GOTO 
5070 

5060 VTAB I + 1: HTAB 3: PRINT P 
A(I,2) 

5070 VTAB I + 1: HTAB 15: PRINT 
PA( I ,3) 

5080 NEXT I 

5090 HTAB 31: VTAB 23: PRINT "OK 
?" 

5110 FOR I = PRZ TO X - 1 
5120 VTAB 1+2: HTAB 8 

5130 INPUT ""j KK* 

5131 HTAB 15: VTAB 1+2: PRINT 
PACI + 1,3) 

5132 IF KK* = "" AND PA<I + 1,2) 

= - 999? THEN HTAB 8: VTAB 

I + 2: PRINT "M" : HTAB 15: VTAB 
I + 2: PRINT PACI + 1,3): GOTO 
5170 

5133 IF KK* = "" AND PA<I + 1,2) 

= 8888 THEN HTAB 8: VTAB I 

+ 2: PRINT " ": HTAB 15: VTAB 
1+2: PRINT PA<I + 1,3): GOTO 
5170 

5134 IF KK* = "" THEN HTAB 8: VTAB 
1+2: PRINT PACI + 1,2): HTAB 
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5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

6000 

6020 

6030 


6040 

6050 

6060 

6070 

6030 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

7000 

7010 

7020 

7030 

7035 

7040 

7050 


7060 
70 70 


APPLE II 


15t VTAB 1+2: PRINT PA(I + 
1,3)1 GOTO 5170 
IF KK* = CHR* (6) THEN MP = 
1 : RIC = 1 - PR2: GOTO 5180 
IF KK* = “M" THEN PA<I + 1, 
2) = - 9999: GOTO 5170 

PA<I + 1,2)= VAL CKK*) 

NEXT I 

VTAB 23: HTAB 34 
GET KK* 

THEN 5110 


"N" 

> 1 


IF KK* = 

IF KK* < 

RETURN 

REM CALCOLA 
FOR I = 1 TO 
IF PA<1,1) < 

+ 1,1) = PA(I 
6050 

PACI + 1,1) = YY 
NEXT I 

REM CALCOLA COPPIE 
IDEA = 0 

FOR I = 1 TO X - 1 
IF I = NUM THEN IDEA = 
6120 

IF FLAG = 1 THEN 
GOTO 6140 


S“ THEN 5190 

COPPIE N-S 
X - 1 

> 1 THEN PA<I 
,1) - 1 : GOTO 


E-0 


1 : GOTO 


IDEA = 0 


7080 PRINT D*;“READ CLASSIFICA,R 
"CG 

7090 FOR I = 1 TO 30: INPUT RECX 
<I): NEXT I 
7100 RECXCNT) = NPX 
7110 PRINT D*;"URITE CLASSIFICA 
R " CG 

7120 FOR I = 1 TO 30: PRINT RECX 
<I): NEXT I 

7130 PRINT D*i"CLOSE CLASSIFICA 


7140 

7150 

7160 

8000 

8010 
80 20 
30 30 
3040 
3050 
8060 
8070 
8090 
3091 


HOME : PRINT "ALTRE MODI FIC 
HE? S/N "i: GET KK* 

IF KK* < > "N" THEN 7040 

GOTO 10 

PRINT : PRINT D*;"OPEN TORN 
EO” 

PRINT D* •, " DELETE TORNEO" 
PRINT D*:“OPEN TORNEO" 
PRINT D*;"WRITE TORNEO" 

1 TO N * 3 
1 TO RIC 


FOR J 
FOR I 
PRINT PP<I,J) 
NEXT I : NEXT J 
PRINT D*;“CLOSE 


TORNEO" 


PRINT : PRINT D*;“OPEN DATI 


IF FLAG = 1 THEN 

IDEA = 0 

3092 

PRINT 

D*;"DELETE DATI" 

IF PA(I,3) = 

103 

GOTO 6220 

8093 

PRINT 

D*;"OPEN DATI" 

IF PAU ,3) = 

101 

GOTO 6130 

8094 

PRINT 

D* ; "LJRITE DATI" 

IF PA<I,3) = 

102 

GOTO 6200 

8095 

PRINT 

X: PRINT N: PRINT YY 

PACI + 1,3) = 

PAC 

1,3) - 2 - 

8096 

PRINT 

D*i"CLOSE DATI" 

IDEA 



8100 

RETURN 

GOTO 6230 



8500 

REM 


PA(I + 1,3) = 

100 

+YY-1- 

3501 

PRINT 

: PRINT D*"OPEN DATI" 

IDEA 






GOTO 6230 



8502 

PRINT 

D*"READ DAT I “ 

PACI + 1,3) = 

100 

+ YY - IDE 

350 4 

INPUT 

X: INPUT N: INPUT YY 

A 



8505 

PRINT 

D*"CLOSE DATI" 

GOTO 6230 



8520 

HOME : 

VTAB 15: INPUT "BATT 

PACI + 1,3) = 

100 

+ YY - FLA 


I IL N. 

DELLA MANO DA VISUALI 

G * CYY - 1) 




ZZARE " 

; KK* 

IDEA = 0 



8525 

KK = VAL CKK*) 

NEXT I 



3530 

IF KK 

> N THEN PRINT "NON 

RETURN 




C'E' 11 

": GET KK*: GOTO 8520 

REM VARIAZIONE PUNTEGGI 




PRINT : PRINT 

D*i 

ì" OPEN TURN 

8540 

PRINT 

: PRINT D* j" OPEN TORN 

0“ 




EO" 


PRINT D* :“ READ TURNO" 

8550 

PRINT 

D*i " READ TORNEO" 

INPUT TU 



3560 

FOR J 

= 1 TO N * 3 

PRINT D*;"CLOSE TURNO" 

8570 

FOR I 

= 1 TO X 

HOME : INPUT 

"N.TORNEO “ ;NT 

8580 

INPUT 

PPCI,J) 

: IF NT ) TU THEN 

7040 

8590 

NEXT I 

: NEXT J 

INPUT "CODICE 

GIOCATORE " :C 

8600 

PRINT 

D*:"CLOSE TORNEO" 

G: INPUT "NUOVO PUNTEGGIO ": 

8601 

REM 


NPX 



3610 

IF KK* 

= "" THEN 3800 

HOME : INVERSE : 

PRINT "ATT 

8620 

FOR I 

= 1 TO X 

ENDERE VARIAZIONE 

IN ATTO" : NORMAL 

3630 

PACI , 1 ) 

= PPC I, KK * 3 - 2) 

PRINT : PRINT 

D*’ 

'OPEN CLASS 

8640 

PACI,2) 

= PPC 1 ,KK * 3 - 1 ) 

I FICA,L1 50 " 



8650 

PACI,3) 

= PPCI,KK * 3) 
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Listato 2 - Il programma Brldge-Cont-Class. 


8660 NEXT I 
8670 NB = KK 
8680 GOSUB 5000 

8690 RIC = X 

8691 FOR I = 1 TO X 

8692 PPCI,KK * 3 - 2) = PA<I,1> 

8693 PP<I,KK * 3 - 1) = PACI,2) 


8694 

PPCI,KK 

* 3) = PAC I ,3) 

8695 

NEXT I 


8700 

GOSUB 

8000 

8701 

HOME : 

PRINT “VUOI I CONTI? 


": 6ET KK* 

8703 

IF KK* 

= “N" THEN 8710 

8704 

IF KK* 

< > "S" THEN 8701 

8705 

HOME : 

INVERSE : PRINT "ATT 


ENDERE PER I CONTI": NORMAL 
: PRINT : PRINT D*;"RUN BRID 
GE-CONT-CLASS" 

8710 GOTO 10 

8800 FOR NB = l TO N 

8810 FOR I = 1 TO X 

8820 PA< I , 1 ) = PP<I,NB * 3 - 2) 

8830 PACI,2) = PPCI.NB « 3 - 1) 

8840 PACI,3) = PPCI.NB * 3) 

8850 NEXT I 

8860 GOSUB 5000 

8861 FOR I = 1 TO X 

8862 PPCI.NB * 3 - 2) = PACI,1) 

8863 PPCI.NB * 3 - 1) = PAC1,2) 

8864 PPCI.NB « 3) = PAC1,3) 

8865 NEXT I 
8870 NEXT NB 
8880 RIC = X 
8890 GOSUB 8000 
8895 GOTO 8701 
9000 HOME 
10000 HOME 


10 D* = CHR* < 4) 

40 DIM PPXC25.123) 

70 DIM PAXC 41,3)I REM MATRI 

CE DEI PUNTEGGI E DELLE COPP 
IE DA INSERIRE 
100 DIM MNSXC41,41) 

130 DIM ME0XC41,41> 

160 DIMAXC41.2): REM MATRIC 

EDEI PUNTEGGI N-S 
190 DIM CXC41.2): REM MATRIC 

EDEI PUNTEGGI E-0 
220 DIM VHRXC50) 

250 DIM RECXC31) 

280 DIM CNSXC51) 

310 DIM CE0XC51> 

340 DIM DXC51,2) 

370 DIM CSNXC51) 

400 DIM C0EXC51) 

430 22* = "S” 

460 W = 0 

490 HOME : INVERSE : PRINT "ATTE 
NDERE PER I CONTI": NORMAL : 
PRINT : PRINT : PRINT 
520 GOSUB 8620 
550 GOSUB 5230 
580 REM 
610 GOSUB 6100 
640 GOSUB 4000 
670 REM 

700 X = YY:LL = 1 

730 FOR I = 1 TO X 

760 PAXC1,1) = MNSXC1,0):PAXC1,2) 

= MNSXCI,N + n 
790 NEXT I 
820 GOSUB 6280 

850 CL = 1:MM = 0:X = YY:XX = YY + 

5 

880 GOSUB 6940 
910 FOR I = 1 TO YY 
940 REM 

970 DXCI.l) = AXCI,1>:DXCI,2) = A 
XC!,2): NEXT 1 
1000 REM 
1030 REM 
1060 REM 
1090 REM 
1120 REM 
1150 REM 

1180 PRINT : PRINT D*;“PR#1" 

1210 PRINT : PRINT “CLASSI 

FICA N-S": PRINT : PRINT 
: PRINT : PRINT 
1240 GOSUB 3850 
1270 FOR I = 1 TO X 
1300 PAXC1,1) = MEOXCI,0): PAXCI,2 
) = MEOXCI,N + 1) 

1330 NEXT I : LL = 1: GOSUB 6280 
1360 CL = 1:MM = 0:X » YY:XX = YY 
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+ 5 

1390 GOSUB 6940 

1420 REM 

1450 REM 

1480 REM 

1510 REM 

1540 REM 

1570 REM 

1600 REM 

1630 REM 

1660 REM 

1690 REM 

1720 REM 

1750 REM 

1780 REM 

1810 REM 

1840 PRINT : PR1NT ! PR1NT "C L 

ASSIFICA E - 0"i PRINT 
: PRINT s PRINT t PRINT 
1870 GOSUB 3850 

1900 PRINT : PRINT Di; " PRttO "ì HOME 
i PRINT "VUOI AGGIORNARE LA 
CLASSIFICA? < S/N) GET KKi 

1930 IF KKi < > “S" THEN 3970 

1960 HOME 

1990 PRINT "DAMMI IL CODICE DELL 
E COPPIE N-S * 

2020 FOR I = 1 TO YY 
2050 PRINT I;: PRINT “ "j: INPUT 

CNSX(I) : HTAB 5: INPUT CSNX( 

I ) 

2080 IF CNSX(I) > 100 OR CSNX(I) 

> 100 THEN HOME i PRINT "E 
R R 0 R E": GOTO 1990 

2110 NEXT I 

2140 PRINT "CONFERMATO (S/N)? ": 

GET KKi 

2170 IF KKi < > "S" THEN 1960 

2200 HOME 

2230 PRINT "DAMMI IL CODICE DELL 
E COPPIE E-0 " 

2260 FOR I = 1 TO YY 

2290 PRINT 100 + Ijl PRINT " 

it INPUT CEOX(I)s HTAB 7i INPUT 
COEX(I) 

2320 IF CEOX(I) > 100 OR COEX( I) 

> 100 THEN HOME : PRINT "E 
R R 0 R E": GOTO 2230 

2350 NEXT I 

2380 PRINT "CONFERMATO (S/N)? " : 

GET KKi 

2410 IF KKi < > “S" THEN 2200 

2440 PRINT : PRINT Dii"OPEN TURN 
0“ 

2470 PRINT Di; " READ TURNO" 

2500 INPUT TU 

2530 TU = TU + 1 

2560 PRINT D*i"CLOSE TURNO" 

2590 PRINT : PRINT Di |" OPEN TURN 


0" 

2620 PRINT Di; "URITE TURNO" 

2650 PRINT TU 

2630 PRINT DÌ;“CLOSE TURNO" 

2710 PRINT : PRINT Di;"OPEN CLAS 
SI FI CA, LI 50 " 

2740 FOR J = 1 TO YY 
2770 PRINT Di;"READ CLASSIFICA.R 
" CNS/.(D/.( J, 1 ) ) 

2800 FOR 1 = 1 TO 30 
2830 INPUT RECX(I) 

2860 NEXT I 

2890 RECX(TU) = DX(J,2) 

2920 PRINT Di;"URITE CLASSIFICA, 
R"CNSX(DX(J,1>) 

2950 FOR I = 1 TO 30 
2980 PRINT RECX(I) 

3010 NEXT I 
3040 NEXT J 
3044 FOR J = 1 TO YY 
3046 PRINT Di;“READ CLASSIFICA,R 
" CSN/.( D/.( J, 1 ) ) 

3048 FOR I = 1 TO 30 
3050 INPUT RECX(I) 

3052 NEXT I 

3054 RECX(TU) = DX(J,2) 

3056 PRINT Di ;"URITE CLASSIFICA, 
R"CSNX(DX(J,1)) 

3058 FOR I = 1 TO 30 
3060 PRINT RECX(I) 

3062 NEXT I 
3064 NEXT J 
3070 FOR J = 1 TO YY 
3100 PRINT Di;"READ CLASSIFICA,R 
"CEOX(AX(J,1> - 100) 

3130 FOR I = 1 TO 30 
3160 INPUT RECX(I) 

3190 NEXT I 

3220 RECX(TU) = AX(J,2) 

3250 PRINT Dij“URITE CLASSIFICA, 
R"CEOX(AX(J,1) - 100) 

3280 FOR I = 1 TO 30 
3310 PRINT RECX(I) 

3340 NEXT I 
3370 NEXT J 
3372 FOR J = 1 TO YY 
3374 PRINT DiREAD CLASSI FICA,R 
" COEX( A'/.( J , 1 ) - 100) 

3376 FOR I = 1 TO 30 
3378 INPUT RECX(I) 

3380 NEXT I 

3382 RECX(TU) = AX(J,2) 

3384 PRINT Di;"URITE CLASSIFICA, 
R"COEX(AX(J,1) - 100) 

3386 FOR I = 1 TO 30 
3388 PRINT RECX(I) 

3390 NEXT I 
3392 NEXT J 

3400 PRINT Dii"CLOSE CLASSIFICA" 
3430 PRINT : PRINT Di;"PR#l" 













Seguilo programma Brldge-Cont-Class. 

3460 FOR I = 1 T0 YY 

3490 PRINT DX<I , 1> ; " ";DX(I,2> 

3520 NEXT I 

3550 PRINT : PRINT s PRINT : PRINT 

3580 FOR I = 1 TO YY 

3610 PRINT AX(1,1);" ";AX(I,2) 

3640 NEXT I 

3670 PRINT D*;"PR#0 M 

3700 GOTO 3970 

3730 REM 

3760 REM 

3790 REM 

3820 REM 

3850 FOR I = 1 TO X 

3880 PRINT PAX(I,1>;i PRINT SPC( 

5 - LEN < STR* < PAX<I , 1 ) ) ) ) 

; : PRINT PAX(I,2) 

3910 NEXT I 
3940 RETURN 

3970 PRINT : PRINT D*”RUN BRIDGE 
-MEM-CLASS" 

4000 PRINT i PRINT D*;"PR#1" 

4030 PRINT CHR$ <9);"132N” 

4090 PRINT " 11 : PRINT " PRINT 
" "i PRINT " " 

4120 REM STAMPA 

4150 S = N 
4180 FOR I = 0 TO S 
4210 PRINT SPC< 3 - LEN < STR* 
(MNSX( 0,1))))MNSX( 0,1)j 
4240 NEXT I 

4270 PRINT " ";"TOT"; 

4300 PRINT " " 

4330 FOR I = 1 TO YY 

4360 PRINT " ” 

4390 FOR J = 0 TO S + 1 

4420 IF MNSX(I,J) = 7777 THEN PRINT 
" ; : GOTO 4480 

4450 PRINT SPC< 3 - LEN ( STR* 

( MNSX(I,J> > >> MNSX (I ,J>; 

4480 IF J = S THEN PRINT " "; 

4510 NEXT J 

4540 PRINT “ " 

4570 NEXT I 

4600 FOR I = 1 TO 25 

4630 PRINT " " 

4660 NEXT 

4690 FOR I = 0 TO S 

4720 PRINT SPC< 3 - LEN < STR* 

(MEOX( 0 , I ) ) > >ME0X(0,1 ) ; 

4750 NEXT I 

4780 PRINT " ";“TOT" ; 

4810 PRINT " 11 

4840 FOR I = 1 TO YY 

4870 PRINT " " 


4900 FOR J = 0 TO S + 1 
4930 IF MEO'X< I , J) = 7777 THEN PRINT 
" ; : GOTO 4990 

4960 PRINT SPC< 3 - LEN ( STR* 
(MEOX( I , J> >) >MEOX( I , J) ; 

4990 IF J = S THEN PRINT " "; 

5020 NEXT J: PRINT " " 

5050 NEXT I 

5080 FOR I = 1 TO 25 

5110 PRINT " " 

5140 NEXT 

5170 PRINT D*;"PR#0" 

5200 RETURN 

5230 RIO = X 

5260 PUNTMED = X - 1 

5290 XX = X + 5 

5320 NUM = INT (YY / 2) 

5350 FLAG = YY - INT (YY / 2> * 

2 

5380 FOR I = 1 TO XX 
5410 L>HRX( I > = 0 
5440 NEXT I 
5470 REM 

5500 FOR P = 0 TO YY 
5530 MNS’/(P,0> = P 
5560 MEOX(P,0) = P + 100 
5590 NEXT 

5620 FOR P = 0 TO N 
5650 MNSX(0,P) = P 
5680 MEOX(O.P) = P 
5710 NEXT 

5740 FOR I = 1 TO YY 

5770 FOR J = 1 TO N 

5800 MNSX(I,J) = 7777 

5830 MEOX(I,J) = 7777 

5860 NEXT : NEXT 

5890 RETURN 

5920 W = W + 1 

5950 FOR I = 1 TO X 

5980 MNSX(AX(I,1),W) = AX(I,2> 

6010 MEO’/.(CX( I , 1 > - 100,W) = (X - 
1 ) * 2 - CX(I,2) 

6040 NEXT I 

6070 RETURN 

6100 FOR NB = 1 TO N 

6130 FOR J = 1 TO X 

6160 PAX(J,1> = PPX(J,NB * 3 - 2) 

6190 PAX(J,2) = PPX(J,NB * 3 - 1) 

6220 PAX(J,3) = PPX(J,NB * 3) 

6250 NEXT J 
6280 REM 

6310 FOR I = 1 TO X:M = 1 
6340 M = 2 * M: IF M < =X THEN 
6340 

6370 M = INT (M / 2): IF M = 0 THEN 
6820 

6380 IF X = M THEN 6370 

6400 FOR 1 = 1 TO X - M:C = I 

6430 D = C + M: IF PAX(C,2> > = 
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PAX(0,2> THEN 6790 
6460 T = PAX(C,2) 

6490 U = PAX( C, 1) 

6520 U = PAX< C,3) 

6550 PAX< C,1) = PAX< D,1) 

6580 PAX < C , 3 ) = PAX(D,3> 

6610 PAX< C,2) = PAX( D , 2 ) 

6640 PAX< D , 2 ) = T 

6670 PAX ( D , I ) = U 

6700 PAX< D , 3 ) = U 

6730 C = C - M 

6760 IF C > 0 THEN 6430 

6790 NEXT : GOTO 6370 

6820 IF LL = 1 THEN LL = 0s RETURN 

6850 FOR I = 1 TO X 
6880 IF PAX<I ,2) = - 9999 THEN 

MM = MM + 1 
6910 NEXT I 

6940 TMR = X « 2 - 2 - MM 
6970 FOR I = 0 TO X - 2 
7000 VHRXXI + 1) = TMR - 2 * I 
7030 IF UHRXCI + 1) < 0 THEN UHR 
X<I + 1) = 0 
7060 NEXT I 
7090 FOR I = X TO XX 
7120 VHRX<I ) = 0 
7150 NEXT I 
7180 SUM = UHRXC1) 

7210 L = 1 

7240 FOR I = 1 TO X - 1 
7270 IF PAX<I,2> = - 9999 THEN 

7840 

7300 IF PAX<I,2> < > PAX<I + 1, 

2) GOTO 7420 

7330 SUM = SUM + VHRX<I + 1) 

7360 L = L + 1 
7390 GOTO 7720 

7420 FOR J = I TO I - L ♦ 1 STEP 
- 1 

7450 AX< J,2) = SUM / L 
7480 AX(J,1 ) = PAX< J , 1 ) 

7510 CX< J,2) = SUM / L 
7540 CX<J,1> = PAX(J,3) 

7570 NEXT J 
7600 L = 1 

7630 SUM = UHRXC1 + 1) 

7660 IF I = X AND CL = 1 THEN CL 
= 0: RETURN 

7690 IF I = X GOTO 8050 
7720 NEXT I 

7750 IF PAX<X,2) = - 9999 GOTO 

7840 

7780 I = X 

7810 GOTO 7420 

7840 FOR AA = I TO I + MM - 1 

7870 AX(AA,2) = PUNTMED 

7900 AX(AA,1) = PAX<AA,1) 

7930 CX<AA,2) = PUNTMED 
7960 CX<AA,1) = PAX < AA,3) 


7990 
80 20 
8050 

8080 

8110 

8140 

8170 

8200 

8230 

8260 

3290 

8320 

8350 

8380 

8410 

8440 

8470 

3500 

8530 

3560 

8590 

8620 

8650 


NEXT AA 
MM = 0 

GOSUB 5920: REM ASSEGNAZ 
IONE PUNTEGGI 
REM SOMMA PUNTEGGI NS 
PRINT "#'■ ; 

NEXT NB 

REM ASSEGNA TOTALI 
FOR I = 1 TO YY 
FOR J » 1 TO N 
IF MNSXU.J) = 7777 THEN KR 
= 0: GOTO 8320 
KR = MNSX(I,J) 

IF MEOXCI.J) = 7777 THEN K2 
= 0: GOTO 8380 
KZ = MEOX<I ,J > 


SNS = SNS + KR 
SEO = SEO + KZ 
NEXT J 

MNSXCI,N ♦ 1) = SNS 
MEOXCI,N + 1) = SEO 


SNS = 0 :SEO = 0 


NEXT I 
RETURN 
REM 

PRINT : PRINT D*"OPEN DATI" 


3680 PRINT D$ 11 READ DATI" 

8710 INPUT X: INPUT N: INPUT YY 
8740 PRINT D*“CLOSE DATI" 

8770 PRINT : PRINT D*?"OPEN TORN 
EO" 

8800 PRINT D$:“READ TORNEO" 

8830 FOR J = 1 TO N * 3 
8860 FOR I = 1 TO X 
8890 INPUT PPX<I,J> 

8920 NEXT I : NEXT J 

8950 PRINT D*i“CLOSE TORNEO" 

8980 RETURN 
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Introduzione 


Monitor 64 

Arricchite il set di di istruzioni del BASIC 

di Gianluca Puccio 


I l C 64, Ira tanti aspetti positivi, ha 
(orse il difetto di offrire poche faci¬ 
litazioni a chi intende sviluppare 
dei programmi in linguaggio mac¬ 
china. Il Monitor proposto intende col¬ 
mare questa lacuna arricchendo il C 64 
di una serie di nuove istruzioni. 

Il programma, (vedere listato 1) come 
si può vedere, è composto esclusiva- 
mente da linee Data, eccettuata la prima 
parte che gestisce il trasferimento di tutti 
i valori in memoria e la ricerca di even¬ 
tuali errori in fase di digitazione. 

Per quanto riguarda gli errori, bisogna 
fare particolare attenzione alla corret¬ 
tezza del valore negativo presente nella 
linea successiva ad ogni gruppo di otto 
linee. Infatti esso rappresenta la somma 
(cambiata di segno) dei valori del bloc¬ 
co di Data precedente. Il programma 


effettua un controllo confrontando la 
somma dei dati appena letti con la som¬ 
ma di verifica. Se i due numeri non coin¬ 
cidono il programma si arresta dando 
una segnalazione di errore, indicando 
anche il gruppo di linee tra le quali cer¬ 
care il "bug". 

Se di errori non ne sono stati commessi. 


la Sys di linea 70 manda in esecuzione il 
Monitor 64: appare un messaggio di 
presentazione, vengono stampati i valo¬ 
ri di alcuni registri, ed il cursore lampeg¬ 
gia aspettando il primo comando. 

A questo punto vi daremo un piccolo 
consiglio. Il programma, quello con i 
Data, occupa circa 14 Kbyte, mentre il 


Urtato 1 - Il programma Monitor 64. 

FILE: MONITORLST PAG. 1 
10 1=49152:FF=1 

20 T=0:FORK*ITOI+l27 :READP:POKER,P:T=T+P 
30 IFK=52854THENFF=0:K=I+127 
40 NEXT 

50 READS:IFS+TTHEN80 
60 IFFFTHENI=1+128 : GOTO20 
70 SYS49152 

80 L=1010+80*INT((1—49152)/l28) 

90 PRINT"ERRORE NEI DATA DEL GRUPPO DI LI 
NEE :( 3 SPAZI}"L"-"L+70:END 
1000 : 

1010 DATA32,68,229,169,9,141,32,208,141 ,3 
3,208,169,128,141,138,2 
1020 DATAI 69,31 ,160,1 92,32,30,1 71,32,95,1 
95,76,116,192,234,234,158 
1030 DATA32,32,32,32,32,32,32,32,32,32,32 
32 32 32 77 79 

1040 DATA78!73 ! 84^79,82,32,32,54,52,1 3,1 3 
,32,32,32,32,32 

1050 DATA32,32,32,32,32,32,32,32,32,32,32 
,32,32,66,89,13 

1060 DATAI 3,32,32,32,32,32,32,32,32,32,32 
32 32 71 73 65 

1070 DATA78 ^76*85'67,65,32,80,85,67,67,73 
,79,13,13,0,234 

1080 DATA234,234,234,234,169,0, 133,2,169, 
13,32,210,255,32,96,165 
1083 : 

1085 DATA-9837 
1087 : 

1 090 DATAI 34,1 22,1 32,1 23,32,1 1 5,0,240,244 
,208,5,234,234,234,234,234 
1100 DATAI 33,251 ,1 62,0,1 89,1 86,1 92,208,3, 
76,163,192,197,251,240,3 
1110 DATA232,208,241,138,10,170,189,208,1 
92,141,179,192,189,209,192,141 


1120 DATAI 80,192,32,1 1 6,164,76,116,192,23 
4,234,77,94,64,82,46,70 
1130 DATA84,67,72,71 ,33,83,76,86,36,35,61 
,62,68,65,0,0 

1140 DATA248,193,139,194,243,194,95,195,1 
53,195,218,195,2,196,194,196 
1150 DATA50,196,60,198,116,164,131,197,19 
6,197,229,197,101 ,1 98,146,1 98 
1160 DATA49,200,65,199,146,200,128,204,13 
3,193,234,234,234,234,234,72 
1163 : 

1165 DATA-18853 
1167 : 

1170 DATA74,74,74,74,170,189,22,193,32,21 
0,255,104,41,15,170,189 
1180 DATA22,193,32,210,255,96,48,49,50,51 
,52,53,54,55,56,57 

1190 DATA65,66,67,68,69,70,234,234,234,23 
4,234,162,4,208,2,162 
1200 DATA2,200,185,0,2,201,32,208,24,200, 
185,0,2,201,48,144 

1210 DATAI 6,201 ,58,1 44,8,201,65,144,8,201 
,71,176,4,202,208,233 
1220 DATA96,198,2,208,251,234,234,234,234 
,234,162,2,208,2,162,1 
1230 DATA32,115,0,144,2,233,8,233,47,10,1 
0,10,10,149,250,32 

1 240 DATAI 1 5,0, 1 44,2,2 33,8,233,47,21,250, 
149,250,202,208,225,96 
1 243 : 

1245 DATA-14836 
1 247 : 

1250 DATA234,234,234,234,234,169,143,160, 
193,32,30,171,96,234,234,42 
1260 DATA32,69,82,82,79,82,69,32,42,0,160 
,0,32,43,193,32 

1270 DATA43,193,32,47,193,198,250,240,5,1 
62,2,32,57,193,185,1 
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Seguito programma Monitor 64. 

1280 DATA2,240,2,133,2,165,2,208,34,32,90 
,193,165,251,133,253 

1 290 DATAI 65,2 52,1 33,2 54,32,90,193,165,2 5 
1,133,20,165,252,133,21,198 
1300 DATA250,208,5,32,90,193,240,3,32,94, 

193,96,234,234,234,234 
1310 DATA234,165,254,197,21,144,10,208,9, 
165,253,197,20,144,2,208 
1320 DATAI,202,96,234,234,234,234,234,160 
,0,32,43,193,200,185,0 
1 323 : 

1325 DATA-16783 
1 327 : 

1330 DATA2,208,4,165,2,240,3,76,133,193,3 
2,90,193,165,251,41 

1340 DATA248,133,251,165,252,32,255,192,1 
65,251,32,255,192,169,46,160 
1350 DATA8,153,122,194,136,208,250,169,32 
,32,210,255,160,0,169,32 
1360 DATA32,210,255,177,251,201,32,144,11 
,201,128,144,4,201,160,144 
1370 DATA3,153,123,194,32,255,192,200,192 
,8,208,226,169,32,32,210 
1380 DATA255,1 69,58,32,21 0,255,1 69,1 23,1 6 
0,194,32,30,171,169,13,32 
1390 DATA210,255,24,169,8,101,251,133,251 
,208,2,230,252,165,198,240 
1400 DATA252,32,228,255,201,13,240,155,96 
,234,234,234,234,234,46,255 
1403 : 

1405 DATA-18962 
1 407 : 

1410 DATA255,46,46,0,234,234,234,234,234, 
234,234,160,0,32,43,193 
1420 DATAI 85,1 ,2,208,1 ,96,32,47,1 93,165,2 
,240,3,76,133,193 

1430 DATAI 85,1 ,2,208,241 ,32,90,1 93,1 65,25 

1.133.253.165.252.133.254 

1440 DATAI 60,0,32,94,193,1 65,251,1 45,253, 
230,253,208,2,230,254,200 
1450 DATAI 77,1 22,208,236,1 69,94,32,21 0,25 

5.169.32.32.210.255.165.254 

1460 DATA32,255,192,1 65,253,32,255,192,16 
9,32,32,210,255,169,145,141 
14 70 DATAI 19,2,169,1 7,141 ,120,2,1 69,2,133 
,198,104,104,76,125,192 
1480 DATA234,234,234,160,0,32,43,193,165, 
2,208,8,200,185,0,2 
1 483 : 

1485 DATA-17940 
1 487 : 

1490 DATA201,32,240,3,76,133,193,200,185, 
0,2,201,39,208,245,32 
1500 DATA90,193,185,1,2,208,3,96,234,234, 
200,185,0,2,240,11 

1510 DATAI 29,251 ,230,251 ,208,244,230,252, 

76.26.195.169.64.32.210.255 

1 520 DATAI 69,32,32,21 0,2 55,1 65,252,32,255 
,192,165,251,32,255,192,169 
1 530 DATA32,32,21 0,2 55,1 69,39,32,21 0,2 55, 
169,145,141,119,2,169,17 
1 540 DATAI 41 ,1 20,2,1 69,2,1 33,1 98,1 04,104, 
76,125,192,234,234,234,169 
1 550 DATAI 33,1 60,195,32,30,1 71 ,1 69,46,32, 
210,255,160,0,169,32,32 


1560 DATA210,255,185,12,3,32,255,192,200, 

192.4.208.240.169.13.32 
1 563 : 

1565 DATA-17615 
1 567 : 

1570 DATA210,255,96,234,234,32,32,65,67,3 

2.88.82.32.89.82.32 

1580 DATA83,82,13,0,234,234,234,234,234,1 
69,4,133,251,160,0,32 
1590 DATA47,193,198,251,208,249,185,1,2,2 
08,4,165,2,240,3,76 

1 600 DATAI 33,193,1 60,0,32,94,1 93,165,251 , 
153,12,3,200,192,4,208 
1610 DATA243,96,234,234,0,0,0,0,0,0,0,0,0 
, 0 , 0,0 

1620 DATA0,0,0,0,0,0,0,0,0,0,169,1,133,25 
0,32,154 

1 630 DATAI 93,1 65,2,240,3,76,1 33,1 93,32,22 
5,193,232,208,12,165,251 
1640 DATAI 29,253,230,253,208,242,230,254, 

208.238.96.234.234.234.234.234 
1 643 : 

1645 DATA-15164 
1 647 : 

1650 DATA234,234,169,2,133,250,32,154,193 
,165,2,240,3,76,133,193 
1660 DATA32,225,193,232,208,20,161 ,253,1 2 
9,251,230,253,208,4,230,254 
1670 DATA240,8,230,251,208,234,230,252,20 

8.230.96.234.234.234.234.234 

1680 DATA234,234,160,0,140,160,196,32,43, 
193,32,43,193,238,160,196 
1690 DATA32,47,193,185,1,2,208,245,165,2, 
240,3,76,133,193,133 

1 700 DATA250,32,185,193,141 ,161 ,1 96,1 60,1 
,204,160,196,240,9,32,94 
1710 DATAI 93,1 53,1 61,1 96,200,208,24 2,32,2 
25,193,232,208,48,160,0,132 
1 720 DATA?50,177,253,217,161 ,1 96,240,2,19 
8,250,200,204,160,196,208,241 
1 723 s 

1725 DATA-20555 
1727 : 

1 730 DATAI 65,250,208,1 7,169,32,32,210,255 
,165,254,32,255,192,165,253 
1740 DATA32,255,192,162,0,230,253,208,206 
,230,254,208,202,96,234,234 
1 750 DATAI 4,77,79,78,73,84,79,82,32,54,52 
,32,46,76,77,77 

1 760 DATA66,76,0,0,0,0,0,0,0,0,0,0,0,234, 
234 234 

1 770 DATA234,234,1 69,2,1 33,250,32,1 54,193 
,165,2,240,3,76,133,193 
1780 DATA32,225,193,232,208,39,161 ,253,1 9 
3,251,240,17,169,32,32,210 
1 790 DATA255,1 65,254,32,255,192,165,253,3 
2,255,192,162,0,230,253,208 
1800 DATA4,230,254,240,8,230,251,208,215, 

230.252.208.211.96.234.234 
1 803 : 

1805 DATA-18214 
1 807 : 

1810 DATA2 34,234,234,234,234,1 73,1 ,2,201 , 
32,208,66,173,2,2,201 
1 820 DATA39,208,59,160,2,162,0,200,1 85,0, 
2,201,39,240,10,157 
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1 830 DATAI 61 ,196,232,224,1 7,208,240,240,3 
7,142,160,196,200,185,0,2 
1840 DATA201,32,208,21,200,185,0,2,201,48 
,208,13,200,185,0,2 

1850 DATA201,49,240,9,201,56,208,6,174,16 
0,196,240,1,96,198,2 

1860 DATA208,251,234,234,234,234,234,169, 
1 5,166,2 50,1 60,1 ,32,1 86,255 
1 870 DATAI 73,1 60,1 96,162,161 ,160,1 96,32,1 
89,255,165,10,48,8,162,0 
1 880 DATAI 60,0,32,21 3,255,96,1 66,251 , 1 64, 

252.32.216.255.96.234.234 
1 883 : 

1885 DATA-17674 
1 887 : 

1 890 DATA234,2 34,2 34,32,5,1 97,32,4 3,1 93,3 

2.43.193.185.1.2.208 

1900 DATA4,165,2,240,3,76,133,193,32,115, 
0,32,115,0,201,39 

1 91 0 DATA208,249,32,94,1 93,1 33,250,32,90, 
193,165,251,133,253,165,252 
1 920 DATAI 33,254,32,90,1 93,1 69,253,1 33,1 0 
,32,87,197,96,234,234,234 
1930 DATA234,234,234,234,32,5,197,56,233, 

48.133.250.185.1.2.208 

1940 DATA4,165,2,240,3,76,133,193,133,10, 

32.87.197.96.234.234 

1 950 DATA234,234,234,234,234,32,5,1 97,56, 
233,48,133,250,185,1,2 
1 960 DATA208,4,165,2,240,3,76,1 33,193,1 69 
,1,133,10,32,87,197 
1 963 : 

1965 DATA-16382 
1967 : 

1970 DATAI 65,1 44,41 ,1 6,240,10,1 69,23,160, 
198,32,30,171,96,169,44 
1 980 DATAI 60,1 98,24,144,245,234,234,1 3,42 
,42,32,86,69,82,73,70 
1 990 DATA89,32,69,82,82,79,82,32,42,42,1 3 
,0,13,42,42,32 

2000 DATA79,75,32,42,42,13,0,234,234,234, 
234,234,160,0,32,43 

2010 DATAI 93,1 85,1 ,2,208,4,165,2,240,3,76 
,133,193,32,90,193 

2020 DATAI 65,2 51 ,141 ,91 ,198,165,2 52,141 ,9 
2,198,32,0,207,96,234,234 
2030 DATA234,234,234,234,234,160,0,32,43, 
193,185,1,2,208,4,165 
2040 DATA2,240,3,76,133,193,32,90,193,169 
,35,32,210,255,169,32 
2043 : 

2045 DATA-14161 
2047 : 

2050 DATA32,210,255,165,252,166,251,32,20 

5.189.96.234.234.234.234.234 

2060 DATA234,234,169,1,133,250,173,1,2,20 
1,32,240,3,76,133,193 
20 70 DATAI 60,0,1 85,2,2,201 ,48,144,244,201 
,58,176,240,234,166,250 
2080 DATA240,12,234,217,22,199,144,4,208, 
227,240,2,198,250,200,192 
2090 DATA5,208,223,185,2,2,208,213,133,25 
1,133,252,32,115,0,240 


2100 DATA46,56,233,48,72,6,251,38,252,166 
,251,164,252,6,251,38 
2110 DATA252,6,251 ,38,252,24,1 38,1 01 , 251 , 
133.251,152,101,252,133,252 
2120 DATAI 04,24,101 ,251 ,1 33,251 ,1 69,0,1 01 
,252,133,252,24,144,205,169 
2123 : 

2125 DATA-19230 
2127 : 

2130 DATA36,32,210,255,1 69,32,32,21 0,2 55, 
165,252,32,255,192,165,251 
2140 DATA32,255,192,96,234,234,54,53,53,5 

1.53.234.234.234.234.234 

2150 DATA234,169,1 ,1 62,2,1 33,1 87,1 34,1 88, 
132,183,32,213,243,165,186 
2160 DATA32,1 80,2 55, 1 65,1 85,32,1 50,25 5,96 
,234,234,234,234,234,234,234 
2170 DATA234,1 69,8,1 33,1 86,1 73,1 ,2,208,3, 

76.116.199.201.36.208 

2180 DATA3,76,145,199,201,61,208,3,76,244 
,199,160,0,200,185,1 

2190 DATA2,208,250,169,111,133,185,32,33, 

199.76.116.199.234.234.234 

2200 DATA234,234,234,234,160,0,1 69,1 1 1 , 1 3 

3.185.32.33.199.32.165.255 
2203 : 

2205 DATA-19111 
2207 : 

2210 DATA32,210,255,201,13,208,246,32,66, 

246.96.234.234.234.234.234 

2220 DATA234,160,0,200,185,1,2,208,250,13 
3,144,169,96,133,185,32 
2230 DATA33,199,160,3,132,250,32,165,255, 

170.32.165.255.164.144.208 

2240 DATA52,198,250,208,241,32,205,189,16 

9.32.32.210.255.32.165.255 

2250 DATAI 66,1 44,208,33,201 ,0,240,20,32,2 
10,255,32,225,255,240,21 
2260 DATA32,228,255,240,232,32,228,255,24 
0,251,208,225,169,13,32,210 
2270 DATA255,160,2,208,191 ,32,66,246,96,2 

34.234.234.234.234.234.234 

2280 DATA234,234,234,234,160,255,200,185, 

2.2.208.250.133.144.152.208 
2283 : 

2285 DATA-20660 
2287 : 

2290 DATA3,76,133,193,169,96,133,185,169, 

2.32.35.199.32.165.255 

2 300 DATAI 64,1 44,208,22,1 70,169,35,32,210 
,255,169,32,32,210,255,32 
2310 DATAI 65,255,32,205,1 89,169,1 3,32,210 
,255,32,66,246,96,234,234 
2320 DATA234,1 60,255,200,1 85,1 ,2,208,250, 
132,251,169,0,141,60,3 
2330 DATAI 69,2,1 62,1 ,1 60,0,32,1 86,255,1 65 
,251,162,1,160,2,32 

2340 DATAI 89,255,32,1 92,255,1 69,2,32,1 95, 
255,173,60,3,201,1,240 
2350 DATA4,201,3,208,36,160,0,132,250,169 
,13,32,210,255,169,35 
2360 DATA32,210,255,1 69,32,32,21 0,255,190 
,61,3,185,62,3,32,205 
2363 : 

2365 DATA-16507 
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Monitor 64 vero e proprio occupa meno 
di 4 Kbyte (da 49.152 a 52.854). 

Quindi perchè non registrare diretta- 
mente il secondo? Tanto più che oltre al 
tempo di caricamento, il primo ha biso¬ 
gno di un altro minuto circa per la lettu¬ 
ra dei Data. 

Come registrare il Monitor 64? Facile, 
basta usare il suo stesso comando di 
registrazione! 

Su disco: S " Monitor 64 " 08 C000 CE77. 
Su nastro: idem, sostituendo 08 con 01 
Nel caso si usi il disco, ricordarsi in se¬ 
guito di caricarlo con ",8,1 

Spiegazione comandi 

Tutti i numeri da digitare e tutti quelli 
visualizzati dal Monitor sono esadeci- 
mali. Gli indirizzi sono sempre formati da 
4 caratteri, quindi bisogna scrivere 0400 
e non 400. 


Analogamente i valori da 1 byte sono 
sempre formati da 2 caratteri. 

Tutti i comandi hanno un solo carattere 
(seguito eventualmente da dati). Atten¬ 
zione a digitare correttamente anche gli 
spazi, come indicato dagli esempi. Co¬ 
munque basta ricordarsi che dopo il 
carattere del comando segue sempre 
uno spazio, ed anche tutti i dati (se ce ne 
sono, ovviamente) sono separati tra lo¬ 
ro con uno spazio. 

Se si sbaglia qualcosa appare subito un 
messaggio d'errore. 

M (Memory) es.: M 0801 

Visualizza la memoria partendo dall'in¬ 
dirizzo digitato, o meglio dal multiplo di 
8 più vicino ad esso. Nell'esempio parti¬ 
rebbe da 0800. 

In una riga compaiono: un indirizzo, il 
suo contenuto e i contenuti di 7 locazio¬ 
ni successive, e una stringa composta 


dal Chr$ di questi otto valori. Se un 
carattere non è visualizzabile, ad esem¬ 
pio Home, al suo posto compare un 
punto. 

Ogni volta che si preme Return viene 
visualizzata un'altra linea (altri 8 byte); 
tenendolo premuto si ottiene una visua¬ 
lizzazione rapidissima. Un qualsiasi al¬ 
tro tasto interrompe la lettura. 

f (Poke) es.: f D020 01 00 

Effettua la Poke dei valori presenti, par¬ 
tendo dall’indirizzo digitato. Nell'esem¬ 
pio, porrebbe 01 in D020 e 00 in D021. 

I valori possono essere tanti quanti ce 
ne stanno in due linee di schermo. Dopo 
la Poke appare automaticamente l'indi¬ 
rizzo successivo all'ultimo usato, e il cur¬ 
sore alla sua destra è pronto ad accet¬ 
tare il prossimo valore. 

Si può anche tornare sulle linee prece¬ 
denti e modificarle. Per terminare basta 


Seguito programma Monitor 64. 

2367 : 

2 370 DATAI 89,1 64,250,200,200,192,4,208,22 
2,169,13,32,210,255,96,234 
2380 DATA234,234,160,0,32,43,193,185,1,2, 
208,4,165,2,240,3 

2390 DATA76,133,193,32,90,193,165,252,32, 

255.192.165.251.32.255.192 

2400 DATAI 69,32,32,210,255,1 69,32,32,21 0, 
255,160,0,177,251,133,253 
2410 DATA32,255,192,230,251,208,2,230,252 
,166,253,189,202,202,133,250 
2420 DATA240,42,169,32,32,210,255,177,251 
,133,254,32,255,192,230,251 
2430 DATA208,2,230,252,165,250,201,8,144, 
18,169,32,32,210,255,177 
2440 DATA251,133,255,32,255,192,230,251,2 
08,2,230,252,24,166,214,160 
2443 : 

2445 DATA-20232 
2447 : 

24 50 DATAI 6,32,240,255,164,253,1 85,202,20 

1.168.162.3.185.202.203.32 

2460 DATA21 0,255,200,202,208,24 6,234,234, 

234.234.234.234.234.234.169.32 

24 70 DATA32,21 0,255,1 64,250,240,97,192,2, 

240.115.192.6.144.9.192 

24 80 DATA9,1 76,5,1 69,4 0,32,21 0,255,1 92,1 , 
208,5,169,35,32,210 

2490 DATA255,192,8,1 44,5,1 65,255,32,255,1 

92.165.254.32.255.192.192 

2500 DATA4,2 40,8,1 92,6,240,4,1 92,9,208,1 0 
,169,44,32,210,255 

2510 DATAI 69,88,32,210,255,1 92,6,144,9,19 

2.9.176.5.169.41.32 

2520 DATA210,255,192,5,240,8,192,7,240,4, 


192,10,208,10,169,44 
2523 : 

2525 DATA-18116 
2527 : 

2530 DATA32,210,255,169,89,32,210,255,169 
,13,32,210,255,165,198,240 
2540 DATA252,32,228,255,201,13,208,3,76,1 
66,200,96,234,234,165,254 
2550 DATA8,24,101 ,251 ,133,254,165,252,105 
,0,133,255,40,16,150,198 
2560 DATA255,24,1 44,1 45,234,234,0,0,0,0,0 
, 0 , 0 , 0 , 0,0 

2570 DATA0,0,0,0,0,0,0,0,0,0,33,1 05,0,0,0 
,105 

2580 DATA9,0,111,105,9,0,0,105,9,0,30,105 
,0,0,0,105 

2590 DATA9,0,42,105,0,0,0,105,9,0,87,6,0, 

0 , 21,6 

2600 DATAI 20,0,117,6,120,0,21,6,120,0,24, 
6 , 0 , 0 , 0 , 6 
2603 : 

2605 DATA-10039 
2607 : 

2610 DATAI 20,0,1 35,6,0,0,0,6,1 20,0,1 26,72 
,0,0,0,72 

2620 DATA99,0,108,72,99,0,84,72,99,0,36,7 
2,0,0,0,72 

2630 DATA99,0,48,72,0,0,0,72,99,0,1 29,3,0 
,0,0,3 

2 640 DATAI 23,0,1 1 4,3,1 23,0,84,3,1 23,0,39, 
3,0,0,0,3 

2650 DATAI 23,0,1 41 ,3,0,0,0,3,123,0,0,144, 
0,0,150,144 

2 660 DATAI 47,0,69,0,1 62,0,1 50,144,147,0,1 
2,144,0,0,150,144 

2670 DATAI 47,0,168,144,165,0,0,144,0,0,96 
,90,93,0,96,90 

2680 DATA93,0,156,90,153,0,96,90,93,0,15, 
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90,0,0,96,90 
2683 : 

2685 DATA-7008 
2687 : 

2690 DATA93,0,51,90,159,0,96,90,93,0,60,5 
4,0,0,60,54 

2700 DATA63,0,81,54,66,0,60,54,63,0,27,54 
,0,0,0,54 

2710 DATA63,0,45,54,0,0,0,54,63,0,57,132, 
0,0,57,132 

2720 DATA75,0,78,132,102,0,57,132,75,0,18 
,132,0,0,0,132 

2730 DATA75,0,138,132,0,0,0,132,75,0,0,6, 
0,0,0,3 

2740 DATA3,0,0,1,0,0,0,11,11,0,2,7,0,0,0, 
4 

2750 DATA4,0,0,10,0,0,0,9,9,0,11,6,0,0,3, 

3 

2760 DATA3,0,0,1,0,0,11,11,11,0,2,7,0,0,0 

,4 

2763 : 

2765 DATA- 3771 
2767 : 

2770 DATA4,0,0,10,0,0,0,9,9,0,0,6,0,0,0,3 

2780 DATA3,0,0,1,0,0,11,11,11,0,2,7,0,0,0 
,4 

2790 DATA4,0,0,10,0,0,0,9,9,0,0,6,0,0,0,3 

2800 DATA3,0,0,1,0,0,8,11,11,0,2,7,0,0,0, 

4 

2810 DATA4,0,0,10,0,0,0,9,9,0,0,6,0,0,3,3 

2820 DATA3,0,0,0,0,0,11,11,11,0,2,7,0,0,4 
i 4 

2 830 DATA5,0,0,10,0,0,0,9,0,0,1,6,1 ,0,3,3 

2840 DATA3,0,0,1,0,0,11,11,11,0,2,7,0,0,4 
,4 

2843 : 

2845 DATA-368 
2847 : 

2850 DATA5,0,0,10,0,0,9,9,10,0,1,6,0,0,3, 
3 

2860 DATA3,0,0,1,0,0,11,11,11,0,2,7,0,0,0 
i 4 

2870 DATA4,0,0,10,0,0,0,9,9,0,1 ,6,0,0,3,3 

2880 DATA3,0,0,1,0,0,11,11,11,0,2,7,0,0,0 
,4 

2890 DATA4,0,0,10,0,0,0,9,9,0,45,45,45,65 
,68,67 

2900 DATA65,78,68,65,83,76,66,67,67,66,67 
,83,66,69,81,66 

2910 DATA73,84,66,77,73,66,78,69,66,80,76 
,66,82,75,66,86 

2920 DATA67,66,86,83,67,76,67,67,76,68,67 
,76,73,67,76,86 
2923 : 

2925 DATA-4052 
2927 : 

2930 DATA67,77,80,67,80,88,67,80,89,68,69 
,67,68,69,88,68 


2940 DATA69,89,69,79,82,73,78,67,73,78,88 
,73,78,89,74,77 

2950 DATA80,74,83,82,76,68,65,76,68,88,76 
,68,89,76,83,82 

2960 DATA78,79,80,79,82,65,80,72,65,80,72 
,80,80,76,65,80 

2970 DATA76,80,82,79,76,82,79,82,82,84,73 
,82,84,83,83,66 

2980 DATA67,83,69,67,83,69,68,83,69,73,83 
,84,65,83,84,88 

2990 DATA83,84,89,84,65,88,84,65,89,84,83 
,88,84,88,65,84 

3000 DATA88,83,84,89,65,0,0,0,0,0,0,0,0,0 
, 0,0 
3003 : 

3005 DATA-9082 
3007 : 

3010 DATAI 60,0,32,43,193,165,2,208,98,1 85 
,1,2,208,1,96,201 

3020 DATA32,208,88,32,90,1 93,1 65,251 ,133, 
253,165,252,133,254,162,3 
3030 DATAI 85,2,2,221 ,202,203,208,20,1 85,3 
,2,221 ,203,203,208,1 2 
3040 DATAI 85,4,2,221 ,204,203,208,4,1 34,20 
,240,9,232,232,232,224 
30 50 DATAI 71 ,208,221 ,240,38,1 85,5,2,208,3 
,76,213,205,201,32,208 
3060 DATA26,1 52,24,105,6,1 68,1 85,0,2,201 , 
35,208,22,162,2,32 

3070 DATA57,193,185,1,2,208,4,165,2,240,3 
,76,133,193,169,1 

3080 DATA76,213,205,201,40,208,95,162,2,3 
2,57,193,165,2,208,235 
3083 : 

3085 DATA-15715 
3087 : 

3090 DATA200,1 85,0,2,201 ,44,208,24,1 85,1 , 
2,201,88,208,220,185 

3100 DATA2,2,201,41,208,213,185,3,2,208,2 
08,169,6,76,213,205 

3110 DATA201,41,208,24,185,1,2,201,44,208 
,192,185,2,2,201,89 

3120 DATA208,185,185,3,2,208,180,169,7,76 
,213,205,162,2,32,58 

3130 DATAI 93,1 65,2,208,1 66,1 85,1 ,2,201 ,41 
,208,159,185,2,2,208 

3140 DATAI 54,169,8,76,21 3,20 5,1 62,2,32,58 
,193,165,2,208,113,185 
3150 DATAI,2,208,5,169,3,76,213,205,201,4 

4.208.31.185.2.2 

3160 DATA201,88,208,10,185,3,2,208,87,169 
,4,76,213,205,201,89 
3163 : 

3165 DATA-14954 
3167 : 

3170 DATA208,78,185,3,2,208,73,169,5,76,2 
13,205,162,2,32,57 

3180 DATAI 93,1 65,2,208,59,1 85,1 ,2,208,24, 
173,7,2,201,66,208 

3190 DATAI 2,1 73,8,2,201 ,73,240,5,169,2,76 
,213,205,169,11,76 

3200 DATA21 3,205,201 ,44,208,26,1 85,2,2,20 

1.88.208.10.185.3.2 

3210 DATA208,14,169,9,76,213,205,201,89,2 
08,5,185,3,2,240,3 
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dare Return quando ci si trova su una 
linea in cui è presente solo l'indirizzo. 
Oppure si può cambiare linea di scher¬ 
mo e digitare un altro comando. 

@ (Poke ASCII) es.: @ 09F0'jolly 

Scrive in memoria, partendo dall'indiriz¬ 
zo digitato, i codici ASCII corrispondenti 
ai caratteri presenti dopo l'apice. Nell'e¬ 
sempio porrebbe 4A (il valore ASCII del¬ 
la J) in09F0,4F (codice della O) in 09F1, 
ecc. Finita l’operazione, il Monitor stam¬ 
pa l'indirizzo successivo all'ultimo utiliz¬ 
zato, stampa anche l'apice, ed attende 
altri caratteri. Il numero di caratteri digi¬ 
tabili è limitato alle solite due linee di 
schermo. 

Per terminare o per modificare linee pre¬ 
cedenti valgono le stesse considerazio¬ 
ni fatte in merito al comando Poke. 

R (Reg) 


Visualizza il valore dei seguenti registri: 
AC (Accumulatore), XR (X Register), YR 
(Y Register), SR (Status Register). 

Non è necessario alcun parametro. 

(Poke reg) es.:. 00 07 05 00 

Permette di modificare il contenuto dei 
registri. 

F (Fili) es. : F 0400 07E7 51 

Pone il valore digitato in tutte le locazio¬ 
ni che vanno dal 1° al 2° indirizzo com¬ 
presi. 

T (Transfer) es.: T 0400 07E7 1000 

Copia il contenuto della zona di memo¬ 
ria che va dal 1° al 2° indirizzo, nella 
zona di memoria che inizia dal 3° indiriz¬ 
zo. 

C (Compare) es.: C 1300 1C008F00 
Confronta il contenuto di tutte le loca¬ 


zioni che vanno dal 1° al 2° indirizzo, con 
le locazioni che partono dal 3° indirizzo. 
In caso il Monitor incontri delle discor¬ 
danze, ne stampa le locazioni. Se le due 
zone di memoria sono identiche non 
stampa nulla. 

H (Munì) es.: H E000 FFFF20 D2 FF 

Cerca in memoria tra il 1° e il 2° indirizzo 
tutti i gruppi di valori uguali a quello 
digitato. Ogni volta che ne trova uno, ne 
stampa l'indirizzo. Nell'esempio verreb¬ 
be visualizzato, tra gli altri, l'indirizzo 
F5C9 perchè nelle locazioni F5C9, F5CA 
e F5CB sono contenuti rispettivamente i 
valori 20, D2 e FF. 

Come per altri comandi precedenti, si 
possono digitare tanti valori quanti ce 
ne stanno su due linee di schermo. 

G (Go) es. : G 1000 

Esegue il codice macchina iniziando 
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3220 DATA76,1 33,193,169,10,133,21,240,83, 
32,115,0,32,115,0,32 

3230 DATAI 1 5,0,1 73,1 1 ,2,201 ,48,1 6,3,32,1 1 
5,0,165,21,201,8 

3240 DATAI 6,9,201 ,2,240,10,32,94,1 93,240, 
49,32,90,193,240,44 
3243 : 

3245 DATA-12810 
3247 : 

3250 DATA32,90,193,165,251 ,229,253,133,25 
1,165,252,229,254,133,252,56 
3260 DATAI 65,251,233,2,133,251 ,1 76,2,198, 
252,230,252,208,6,165,251 
3270 DATAI 6,1 74,48,8,1 98,252,208,168,1 65, 
251,48*164,162,0,165,20 
3280 DATA221,202,201,208,9,165,21,221,202 
,202,208,2,240,5,232,208 
3290 DATA237,240,141,138,162,0,129,253,23 
0,253,208,2,230,254,165,21 
3300 DATA240,26,165,251,129,253,230,253,2 
08,2,230,254,165,21,201,8 
3310 DATA48,10,165,252,129,253,230,253,20 
8,2,230,254,169,65,76,198 
3320 DATAI 94,76,201,1 94,234,234,234 
3323 : 

3325 DATA-19515 
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dall'indirizzo digitato. Il controllo torna 
al Monitor quando il computer incontra 
un’istruzione Rts. 

/ (Quit) 

Termina l'esecuzione del Monitor e resti¬ 
tuisce il controllo al BASIC. Per ritornare 
al Monitor battere: Sys 49152. 

S (Save) es.: S 'prova ' 08 9000 915E 

Registra su disco (08) o su nastro (01 ) la 
routine in linguaggio macchina che va 
dal 1° indirizzo compreso al 2° indirizzo 
escluso. Nell'esempio si voleva salvare 
da 9000 a 9150 compresi. Quindi il 2° 
indirizzo deve essere sempre aumentato 
di 1. 

Ovviamente il comando registra non so¬ 
lo programmi ma in generale porzioni di 
memoria qualsiasi, ad esempio la pagi¬ 
na video. 

Nel caso si usi l'unità a nastri, può esse¬ 
re omesso il nome del programma ma va 
digitata comunque la coppia di apici. 
Esempio: S " 01 0400 07E7 

L (Load) es.: L 'prova'08 

Carica un programma da disco (08) o 
da nastro (01), allocandolo nello stesso 
posto nel quale si trovava quando è 
stato registrato. Con il nastro si può 
omettere il nome. 

V (Verity) es.: V 'prova ' 08 

Verifica un programma precedente- 
mente registrato. 

$ (Esa-Dec) es.: $ CE77 

Trasforma il numero esadecimale digi¬ 
tato in un numero decimale e lo stampa. 
Dopo il comando devono esserci sem¬ 
pre 4 cifre esadecimali. Quindi bisogna 
digitare 007A e non 7A. 

#(Dec-Esa) es.:#32768 

Trasforma il numero decimale digitato 
nell'equivalente esadecimale. Il numero 
deve essere comunque composto da 5 
cifre: va scritto 01024 e non 1024. 

= (Tape range) es.: =prog 

Permette di conoscere l’indirizzo iniziale 
e l'indirizzo finale della zona di memoria 
che occuperebbe un programma, at¬ 
tualmente su nastro. 

Non va digitato alcuno spazio tra il co¬ 
mando ed il nome (a meno che il nome 
stesso non inizi con uno spazio). 


> (Drive) 

Comprende quattro comandi. Per tutti 
non va digitato lo spazio dopo il segno 
>. 

Comando disco es.: >S:game 

Manda al drive tutto quanto compare 
dopo il simbolo quindi tutti i comandi 
per il disco vengono accettati. 
Nell'esempio, il comando S (Scratch) 
cancellerebbe il programma "game". 

Directory es.: > $ 

Visualizza la directory del disco presen¬ 
te nel drive. Anche in questo caso viene 
“spedito" tutto quanto segue >, quindi 
è possibile la sintassi estesa, della for¬ 
ma: >$:progr*. 

Si può fermare temporaneamente la vi¬ 
sualizzazione premendo un tasto qual¬ 
siasi, poi ripartire sempre con un tasto 
qualsiasi. Si può anche sfruttare il tasto 
Stop per interrompere definitivamente la 
lettura. 

Stato 

Il solo simbolo > permette di conoscere 
lo stato del drive. 

Ind. d'inizio es.: > = nome 

Visualizza l'indirizzo d'inizio di un pro¬ 
gramma residente su disco. 

D (Disassembie) es. : D C000 

Disassembla la memoria partendo dal¬ 
l'indirizzo digitato. In una linea com¬ 
paiono: un indirizzo, poi 1,2 o 3 byte di 
codice macchina (secondo il tipo di in¬ 
dirizzamento), infine il disassemblato di 
quei byte. 

Se il contenuto di una locazione di me¬ 
moria non corrisponde a nessuna delle 
istruzioni del 6510, al posto dell'istruzio¬ 
ne mnemonica apparirà la stringa 
Ogni volta che si preme Return viene 
disassemblata un’altra istruzione. Qual¬ 
siasi tasto per terminare. 

A (Assemble) es.: A 9500 LDA #51 

Assembla l’istruzione digitata dopo l'in¬ 
dirizzo. Appare poi automaticamente 
l'indirizzo per l'istruzione successiva. 
Digitare Return per interrompere. Si 
possono modificare le linee precedenti 
allo stesso modo che per il comando 
Poke. 

Nelle istruzioni di salto relativo (Branch) 
deve comparire l'indirizzo dove salte- 



Flgura 1 - Schema a blocchi (Sé! programma. 
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Monitor 64 


rebbe il programma in caso di branch 
verificato. Esempio BNE 9C4F. Attenzio¬ 
ne a non superare i confini del range 
permesso, pena messaggio d'errore. 

Commento alle routine 

Ecco lo schema di funzionamento di 
Monitor 64, come è riportato nello sche¬ 
ma a blocchi di figura 1 e nel disassem¬ 
blato di figura 2 riportato a fine articolo. 

Inizìalizzazìone ($C0-$C01A) 

Esegue la subroutine $E544 che pulisce 
lo schermo. Colora di verde il bordo e lo 
sfondo. Dà il Repeat automatico a tutti i 
tasti. Esegue la subroutine $AB1E per 
stampare il messaggio di partenza. Pri¬ 
ma del salto a tale subroutine, l’accu¬ 
mulatore e il registro X devono contene¬ 
re rispettivamente la parte bassa e la 
parte alta dell'indirizzo d'inizio della 
stringa da stampare. 

Alla fine della stringa deve esserci un 
byte uguale a zero. Poi esegue la su¬ 
broutine Reg del Monitor per visualizza¬ 
re il contenuto di alcuni registri. Infine 
salta a Start (SC074) in attesa di un 
comando. 

Start ($C074-$C089) 

Azzera la locazione 2 che rappresenta il 
(lag d'errore; viene esaminato al ritorno 
di varie subroutine di verifica per i dati 
digitati. 

Stampa un Return ed esegue la subrou¬ 
tine $A560, la quale prende un Input e lo 
memorizza da $0200 in poi, aggiungen¬ 
do uno zero alla fine. Al ritorno i registri X 
e Y rappresentano rispettivamente il by¬ 
te basso e il byte alto dell'indirizzo in cui 
è posto il primo dei caratteri digitati. 
Questo indirizzo viene memorizzato nel¬ 
le locazioni $7A e $7B, sfruttate succes¬ 
sivamente dalla subroutine $0073 che 
preleva un carattere dalla memoria. 

Se il primo carattere è un Chr$(0), allo¬ 
ra l'Input era una stringa nulla, e il con¬ 
trollo torna di nuovo all’istruzione Jsr 
$A560. In caso contrario salta al control¬ 
lo comandi. 

Controllo comandi ($C090-$C0B5) 

Prende un carattere dalla tabella dei 
comandi permessi (tabella 1), e lo con¬ 
fronta con il comando digitato. Se coin¬ 
cidono allora il comando è lecito e ter¬ 
mina il ciclo per i confronti. L'indice alla 
tabella viene moltiplicato per 2 ed usato, 



COMANDI 


M 

Memory 

C1F8 

T 

Poke 

C28B 

@ 

Poke ASCII 

C2F3 

R 

Reg 

C35F 

. 

Poke reg 

C399 

F 

Fili 

C3DA 

T 

Transfer 

C402 

C 

Compare 

C4C2 

H 

Hunt 

C432 

G 

Go 

C63C 

i 

Qui! 

A474 

S 

Save 

C583 

L 

Load 

C5C4 

V 

Verify 

C5E5 

$ 

Esa-Dec 

C665 

# 

Dec-Esa 

C692 

= 

Tape range 

C831 

> 

Drive 

C741 

D 

Disassemble 

C892 

A 

Assemble 

CC80 

> corri. 

Comando 

C75B 

>$ 

Directory 

C791 

> 

Stato 

C774 

> = 

Ind. inizio 

C7F4 


Tabella 1 - Indirizzi del comandi riconosciuti 
dal programma. 


ancora come indice, per prendere dal¬ 
l'apposita tabella l'indirizzo della routi¬ 
ne per l'esecuzione del comando. Tale 
indirizzo viene memorizzato direttamen¬ 
te nel vettore di salto alla routine. 

Se il comando non fosse stato ricono¬ 
sciuto, l'indice alla tabella degli indirizzi 
punterebbe all'ultima coppia di valori: 
l'indirizzo della routine di errore. 

Per quanto riguarda il comando Qu 
nella tabella compare l'indirizzo $/->4. 
dell'interprete BASIC. Si tratta dell'ulti¬ 
ma parte della routine di gestione degli 
errori, ed il suo scopo è la stampa del 
consueto Ready: quanto basta per usci¬ 
re dal Monitor. 

Al termine della routine di controllo co¬ 
mandi troviamo una istruzione di salto a 
Start, dove tutto ricomincia con un nuo¬ 
vo Input. 

Subroutine per la stampa di un byte 
($C0FF-$C115) 

Ottenere 2 cifre esadecimali partendo 
da un valore (0-255) è abbastanza sem¬ 
plice. Per la prima cifra basta prendere il 
nibble alto del valore (i suoi 4 bit più 
significativi) ed usarlo come indice alla 
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tabella che contiene il codice ASCII di 
tutte le cifre esadecimali. Abbiamo così 
ricavato il primo carattere. Utilizzando il 
nibble basso del valore iniziale (i 4 bit 
meno significativi) come indice alla ta¬ 
bella appena menzionata, si ricava il 
secondo carattere. 

Facciamo un esempio: trasformiamo il 
valore 124, la cui codifica binaria è 0111 
1100. Con 4 istruzioni Lsr otteniamo il 
valore del nibble alto: 00000111, cioè 7. Il 
settimo valore della tabella è 55, il codice 
ASCII del numero 7, il nostro primo ca¬ 
rattere. Ora prendiamo, con una And 
#15, il nibble basso di 124: 0000 1100, 
cioè 12. Il dodicesimo valore dellatabella 
è 67, il codice ASCII della lettera C. il 
nostro secondo carattere. Ecco come 
124 è trasformato in $7C 

Subroutine per la verifica di: spazio + 
indirizzo esadecimale ($C12B-$C153) 

Il programma verifica i dati digitati, esa¬ 
minando l'Input Buffer, la zona di me¬ 
moria nella quale viene memorizzato il 
contenuto di una linea di schermo 
quando si preme Return. 

Il registro X contiene il numero di cifre 
esadecimali da verificare. Per qualsiasi 
errore di sintassi viene settato il flag 
d'errore (la locazione 2). Al ritorno dalla 
subroutine il programma controlla tale 
flag per conoscere il risultato della verifi¬ 
ca. 

Subroutine per trasformare 4 caratteri 
esadecimali in un indirizzo ($C15A- 
$C17F) 

Il registro X contiene il numero di byte da 
ottenere: 4 caratteri danno 2 byte, 2 ca¬ 
nteri ne danno 1 solo. 

’er trovare il valore del primo carattere 
basta sottrarre 48 se è una cifra oppure 
56 se è una lettera. Poi si moltiplica 
questo valore per 16 con quattro istru¬ 
zioni Asl, ricavando il nibble alto del byte 
cercato. Analogamente si sottrae 48 o 
56 dal secondo carattere ricavando il 
nibble basso del byte. 

Se si vogliono 2 byte si trasformano 
così altri due caratteri. Per prendere un 
carattere è stata usata la subroutine 
$0073, che termina con il carry azzerato 
se il carattere è una cifra, settato in caso 
contrario. 

Subroutine Err ( $C185-$C18C) 

Sfrutta la subroutine $AB1 E per stampa¬ 
re il messaggio d'errore del Monitor. 
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Subroutine che prende 2 indirizzi e 1 
valore oppure 3 indirizzi ($C19A- 
$C1DB) 

Prima di chiamare questa subroutine il 
flag $FA è posto a 2 se il terzo parametro 
è un indirizzo, è posto a 1 se esso è un 
valore. 

La subroutine verifica i 3 parametri e, 
se tutto a posto, memorizza il primo in 
($FD;$FE) e il secondo in ($14;$15). Se il 
terzo è un indirizzo lo memorizza in 
($FB;$FC), altrimenti memorizza il valo¬ 
re in $FB. 

Subroutine che confronta due indirizzi 
($C1E1-$C1F2) 

Confronta l'indirizzo in ($FD;$FE) con 
l’indirizzo in ($14;$15). Se il primo è mi¬ 
nore o uguale al secondo setta il regi¬ 
stro X, altrimenti lo lascia a 0 (come deve 
essere prima di chiamare questa su¬ 
broutine). 

Peek ($C1F8-$C278) 

Per trovare il multiplo di 8 più vicino 
all’indirizzo dato (da cui far partire la 
lettura) basta una And #248 effettuata 
sul byte basso di tale indirizzo. 

Durante la lettura della memoria i valori 
esadecimali vengono stampati subito, 
mentre i caratteri corrispondenti si ag¬ 
giungono ad una stringa che viene 
stampata solo prima di passare alla riga 
successiva. I valori che non si possono 
visualizzare come caratteri (Home, ecc) 
sono: tutti quelli minori di 32 e tutti quelli 
tra 128 e 159 compresi. 

In $C271 viene chiamata la subroutine 
$FFE4 che esegue una Get prendendo 
un carattere dal buffer di tastiera e po¬ 
nendolo nell'accumulatore. 

Poke ($C28B-$C2ED) 

Scrive in memoria i valori digitati usando 
la subroutine $C15E per passare dalla 
forma esadecimale al numero. 

Poi stampa l'indirizzo successivo all'ulti¬ 
mo utilizzato e pone un Crsr Up e un 
Crsr Down nel buffer da tastiera perché 
in questo modo la prossima Input consi¬ 
dererà tutti i caratteri della linea. Nor¬ 
malmente invece vengono considerati 
soltanto i caratteri a partire dalla posi¬ 
zione che aveva il cursore all'inizio della 
Input. 

Infine elimina l'indirizzo di ritorno della 
subroutine e salta direttamente a $C07D 
per la prossima Input, evitando la stam¬ 
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pa del Return. 

Poke ASCII ($C2F3-$C359) 

Scrive in memoria i codici ASCII dei ca¬ 
ratteri digitati prelevandoli dall’Input 
buffer. 

Alla fine pone Crsr Up e Crsr Down nel 
buffer di tastiera ed elimina l'indirizzo 
per Rts proprio come nella subroutine 
Poke. 

Reg ($C35F-$C382) 

Visualizza il contenuto dei registri, che 
non corrispondono però ai loro valori 
attuali bensì a quelli posseduti al mo¬ 
mento dell'ultima Sys. Questi valori sa¬ 
ranno restituiti ai registri tornando al 
BASIC. 

Poke reg ($C399-$C3C1) 

Modifica il valore dei registri. 

Fili ($C3DA-$C3FA) 

Pone a 1 il flag SFA in modo che la 
subroutine SC19A, chiamata in SC3DE, 
verifichi e memorizzi 2 indirizzi e 1 valore. 
Poi inizia il ciclo nel quale pone in me¬ 
moria il valore e incrementa il primo 
indirizzo. Il ciclo termina quando il primo 
indirizzo è maggiore del secondo oppu¬ 
re se il primo arriva a 0, cosa che succe¬ 
de se il secondo indirizzo e $FFFF 

Transfer ($C402-$C42A) 

Durante il ciclo di trasferimento della 
memoria viene incrementato sia il primo 
che il terzo indirizzo. L'uscita dal ciclo 
avviene come per la subroutine Fili. 

Hunt ($C432-$C49D) 

Memorizza da SC4A1 in poi tutti i byte da 
cercare e in SC4A0 il loro numero. Effet¬ 
tua il ciclo di ricerca stampando l'attua¬ 
le indirizzo solo se tutti i valori coincido¬ 
no con quelli presenti in memoria. 

Compare ($C4C2-$C4FD) 

Effettua il ciclo di ricerca stampando 
l'attuale indirizzo se il contenuto del pri¬ 
mo indirizzo è diverso da quello del ter¬ 
zo. 

Subroutine per la verifica di nome file e 
numero periferica ($C505-$C550) 

Memorizza da SC4A1 in poi il nome file e 
in SC4A0 la sua lunghezza, la quale non 
deve superare i 16 caratteri. 

Poi controlla che il numero della perife¬ 
rica sia 1 o 8. Nel caso esso sia 8 control¬ 


la anche che il nome file non sia una 
stringa nulla. 

Subroutine per l'esecuzione di Save, 
Load e Verify ($C557-$C57D) 

Chiama la subroutine $FFBA per asse¬ 
gnare i parametri (canale, numero peri¬ 
ferica e indirizzo secondario) e la su¬ 
broutine $FFBD per assegnare il nome- 
file e la sua lunghezza. 

Poi legge il flag 10. Se è maggiore o 
uguale a 128 chiama la subroutine 
$FFD8 per eseguire una Save. Altrimenti 
chiama la subroutine $FFD5 che ese¬ 
guirà Load o Verify a seconda che il flag 
10 sia, rispettivamente, 0 o 1. 

Save ($C583-C5BC) 

Verifica la sintassi e memorizza tutti i 
parametri, poi setta il flag 10 per la Save 
e chiama la subroutine $C557 per l'ese¬ 
cuzione vera e propria del comando. 

Load ($C5C4-$C5DD) 

Verifica e memorizza i parametri, poi 
azzera il falg 10 e chiama la subroutine 
$C557 per l'esecuzione. 

Verify ($C5E5-$C613) 

Verifica e memorizza i parametri, poi 
setta al il flag 10 e chiama la subroutine 
SC557 per l’esecuzione. Al ritorno va a 
leggere il contenuto della locazione 144 
(lo Status). Se il bit 4 è settato vuol dire 
che l'esito della Verify è negativo. 
Stampa di conseguenza il messaggio di 
OK o quello di errore. 

Go ($C63C-$C65D) 

Una volta ottenuti i 2 byte dell’indirizzo 
di partenza, essi vengono memorizzati 
direttamente nel vettore di salto, cioè 
alla locazione $C65A 

Esa-Dec ($C665-$C68A) 

Dopo aver trasformato i caratteri esade¬ 
cimali in un indirizzo, pone la parte bas¬ 
sa di quest'ultimo in X, la parte alta in 
Accumulatore e chiama la subroutine 
$BDCD che stampa, naturalmente in 
decimale, il numero contenuto in (A;X). 

Dec-Esa ($C692-$C713) 

All’inizio c'è un ciclo per la verifica del 
numero decimale, carattere per caratte¬ 
re. Il flag SFA informa se bisogna effet¬ 
tuare un controllo aggiuntivo sulla 
grandezza del numero, dato che il mas¬ 
simo decimale accettato è 65535. 
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Se per esempio la prima cifra è 2, le cifre 
successive possono anche essere tutti 9 
e quindi il flag SFA viene azzerato (nes¬ 
sun ulteriore controllo). Ma se la prima 
cifra è 2, la seconda non potrà essere 
maggiore di 5 e perchè ci sia questo 
controllo il flag SFA rimane settato. 
Superata la verifica si passa alla conver¬ 
sione. Prima pone a 0 quello che sarà il 
numero esadecimale risultante, chia¬ 
miamolo Esa. Poi inizia il ciclo nel quale 
moltiplica Esa per 10 e somma al risulta¬ 
to una cifra del numero decimale. Quan¬ 
do le cifre sono finite esce dal ciclo e 
stampa Esa. 

Subroutine per eseguire una Open ai 
Drive ($C721-$C738) 

Pone in ($BB;$BC) l'indirizzo del nomefi- 
le, e in $B7 la sua lunghezza, che deve 
essere nel registro Y prima di chiamare 
questa subroutine. Poi chiama la su¬ 
broutine SF3D5 per una Open al bus 
seriale, la SFFB4 per mandare un Talk, e 
la SFF96 per mandare l’indirizzo secon¬ 
dario. 

Drive ($C741-$C76A) 

Se il controllo è arrivato qui, vuol dire 
che il comando inizia con >. Ora biso¬ 
gna appurare di quale comando si trat¬ 
ta. Se è stato digitato il solo simbolo >, 
allora salta alla routine Stato ($C774). 
Se c'è anche $ salta alla routine Directo¬ 
ry ($C791). Se è presente il segno = va 
alla routine Ind ($C7F4). 

Se non rientra in nessuno dei casi pre¬ 
cedenti, allora il comando è da inviare 
cosi com'è direttamente al drive. Si tratta 
per esempio di S (Scratch), V (Validate), 
o un altro dei tanti comandi possibili. 
L'indirizzo secondario è posto a 15 (il 


canale di comando del drive) e viene 
chiamata la subroutine $C721 per la 
Open. Poi c’è il salto alla routine Stato, 
che visualizzerà il messaggio del caso. 

Stato ($C774-$C78A) 

Dopo aver aperto la comunicazione con 
il drive la routine prende un carattere 
sfruttando la subroutine $FFA5 e lo 
stampa, fino a quando non incontra un 
Chr$(13). A questo punto esegue la sub- 
routine $F642 per la Close. 

Directory ($C791-$C7E8) 

Vediamo'prima di tutto qual è la struttu¬ 
ra della directory quando viene letta u- 
sando $ (anche in BASIC con Load 
"$'', 8 ). 

Analizziamo le informazioni relative ad 
un singolo file. All'inizio ci sono due byte 
da saltare (il loro contenuto non ci inte¬ 
ressa). Seguono 2 byte che rappresen¬ 
tano il numero di blocchi occupati dal 
file sul disco. Poi c'è il nome del file 
racchiuso tra virgolette e un certo nu¬ 
mero di spazi (codice 32) che dipende 
dal numero di caratteri non utilizzati dal 
nome (se questo cioè è più corto di 16 
caratteri). 

Segue un codice di 3 caratteri indicante 
il tipo di file: Prg (programma). Seq (se¬ 
quenziale), Usr (User) o Rei (Relative). 
Infine un Chr$(0) che separa un gruppo 
di informazioni dal gruppo successivo, 
relativo ad un altro file. 

Ci sono due eccezioni alla struttura di 
dati vista prima: il primo e l'ultimo grup¬ 
po di byte. 

Il primo porta le informazioni relative al 
disco nel suo complesso. Inizia con 4 
byte da saltare invece di 2, poi ci sono 2 
byte uguali a 0, il nome del disco e per 


Codice 

Nome 

Sintassi 

Esempio 

0 

Implicito 


TXA 

1 

Immedato 

#SS 

LDA #07 

2 

Relativo 

ssss 

BCC 9E56 

3 

Zero Page 

ss 

STA C6 

4 

Zero Page.X 

ss.x 

LDA FA,X 

5 

Zero Page.Y 

$$,Y 

LDX FA,Y 

6 

Indicizzato Indiretto 

(SS.X) 

CMP (FD.X) 

7 

Indiretto Indicizzato 

($$).Y 

STA (FB).Y 

8 

Indiretto 

(SSSS) 

JMP (0300) 

9 

Assoluto,X 

ssss.x 

DEC 0402,X 

10 

Assoluto.Y 

SSSS.Y 

AND D021.Y 

11 

Assoluto 

SSSS 

SBC D400 


ultima, prima del Chr$(0), la sua ID. 

L'ultimo gruppo di byte contiene il nu¬ 
mero totale di blocchi liberi sul disco e la 
stringa “Blocks Free". 

Dopo l'apertura del canale di comuni¬ 
cazione c'è un piccolo ciclo durante il 
quale vengono saltati i primi byte (come 
si è detto precedentemente). La subrou¬ 
tine SBDCD chiamata in $C7B5 stampa 
il numero di blocchi occupati dal file. 
Segue il ciclo di lettura di tutti i byte 
rimanenti. 

Se è stato premuto un qualsiasi tasto, il 
programma attende che ne venga pre¬ 
muto un altro (qualsiasi). La subroutine 
SFFE1 chiamata in $C7CB controlla se 
si è premuto il tasto Stop. Se è cosi salta 
tutto il resto e va direttamente alla Close 
finale. Se il carattere appena letto è un 
Chr$(0) la linea viene terminata con la 
stampa di un Return e si ricomincia tutto 
da capo per la nuova linea, byte da 
saltare, ecc. 

Durante la lettura viene continuamen¬ 
te controllato lo Status, e se questo è 
diverso da 0 si pone fine all'esecuzione. 
Questo succede normalmente quando 
la directory è terminata, ma accade an¬ 
che in caso di errore: disco non inserito 
o mal formattato o altre cose del genere. 

Indirizzo d'inizio programma ($C7F4- 
$C82D) 

Per conoscere l’indirizzo d'inizio di un 
programma residente su disco occorre 
procedere alla sua lettura come se si 
trattasse di un file sequenziale. I primi 
due byte letti non sono altro che l'indiriz¬ 
zo voluto. 

Dopo la Open il programma prende il 
byte basso poi controlla lo Status; se 
tutto OK prende anche il byte alto e 
stampa l'indirizzo. Segue l'immancabile 
Close. 

Tape range ($C831-$C88E) 

Di un programma residente su nastro è 
possibile conoscere sia l’indirizzo inizia¬ 
le che quello finale. Basta accedere ad 
esso con una Open come per un file, e 
subito dopo dare la Close. In seguito a 
questa procedura la locazione 828 con¬ 
terrà il tipo di file, le locazioni 829 e 830 
l'indirizzo iniziale, le locazioni 831 e 832 
l'indirizzo finale, e le locazioni da 833 in 
poi conterranno il nome del file. 

Il tipo del file può essere: 1,2 o 3.1 indica 
un programma, 2 indica un file e 3 indica 
un programma non rilocabile, cioè un 
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Tabella 2 - Tipi di Indirizzamento (utilizzati per asaemblare e dlsassemblare le Istruzioni). 








programma che andrà in memoria esat¬ 
tamente dove si trovava al momento 
della Save. 

Per avere la sicurezza di avere a che 
fare con un programma, la routine con¬ 
trolla il contenuto della locazione 828 
($033C in esadecimale) dopo aver effet¬ 
tuato Open e Close. Se tale contenuto è 
un 1 o un 3 allora prende i due indirizzi e 
li stampa, se no salta subito alla fine. 

Disassemble ($C892-$C8FA) 

Per prima cosa stampa l’indirizzo, poi 
legge dalla memoria il primo valore, il 
quale non è altro che l'istruzione in lin¬ 
guaggio macchina, e lo stampa. Usa 
l’istruzione come indice alla tabella Indir 
per trovare il suo tipo d'indirizzamento. 
Ora ci sono 3 possibilità: l'istruzione è 
composta da un unico byte (indirizza¬ 
mento implicito). In relazione a queste 
possibilità il programma non stamperà 
niente, stamperà un valore oppure due. 

($C8FC-$C914) 



In ogni caso siamo ora arrivati al disas¬ 
semblaggio vero e proprio, che inizia 
con la stampa di un Tab(13). Prende 
l’istruzione in linguaggio macchina e la 
usa come indice alla tabella Codis per 
trovarne il codice. Usa tale codice come 
indice alla tabella Mnemo per trovare 
l’istruzione mnemonica e stamparla. 

($C91E-$C9B2) 

A seconda del tipo di indirizzamento 
continua in modo diverso la visualizza¬ 
zione. Se è implicito non stampa più 
nulla. Se è indiretto (semplice o con indi¬ 
cizzazione) stampa "(", mentre se è im¬ 
mediato stampa Se è relativo salta 
alla decodifica del codice branch per 
ottenere un indirizzo, poi torna qui. 


Figura 3 - Schema a blocchi della routine 



Stampa un valore oppure un indirizzo e 
poi riprende in maniera diversa, sempre 
in relazione al tipo di indirizzamento, 
stampando ”,X" o “)” o altro. 

Fine della riga. Stampa un Return ed 
attende che venga premuto un tasto, 
per continuare oppure per interrompere 
il disassemblaggio. 

Tabella Codis, Indir e Mnemo (SC9CA- 
$CC74) 

Per comprendere come funzionano i 
comandi Disassemble e Assemble ve¬ 
diamo come sono strutturate queste ta¬ 
belle. 

Codis è un vettore di 256 elementi. Il 
codice che troviamo all'n-esimo posto 
rappresenta il punto della tabella Mne¬ 
mo in cui c’è l’istruzione mnemonica 
relativa all'istruzione n in linguaggio 
macchina. Attenzione che l'espressione 
“n-esimo posto” indica un numero che 
va da 0 a 255 (e non da 1 a 256). 
Facciamo un esempio chiarificatore: 
vogliamo conoscere l'istruzione mne¬ 
monica relativa al codice $00 di linguag¬ 
gio macchina. Allora n = 0. Al posto 0 
della tabella Codis troviamo il valore 
$21. Questo valore dice di andare a 
guardare al posto $21 della tabella 
Mnemo. $21 corrisponde a 33 decimale. 
Se contiamo partendo da 0. al posto 33 
della tabella Mnemo troviamo il valore 
ASCII della lettera B di Brk. Dal codice 
S00 abbiamo quindi ottenuto la corretta 
istruzione Brk. 

Analogamente al posto $60 della tabella 
Codis c’è il valore $81 che indica il punto 
della tabella Mnemo in cui c’è l'istruzio¬ 
ne Rts. 

Tutti i posti della tabella Codis che non 
sono codici di linguaggio macchina 
contengono il valore $00 che porta al 
posto $00 della tabella Mnemo, e qui 
troviamo i caratteri "—’’ ad indicare ap¬ 
punto un codice di linguaggio macchi¬ 
na non lecito. 

La tabella Indir è molto più semplice. 
Anch'essa è un vettore di 256 elementi e 
contiene dei valori che indicano il tipo di 
indirizzamento ($00 = implicito, $01 = 
immediato, ecc.) secondo lo schema 
della tabella 2. 

Al posto $00 (istruzione $00) c'è $00 
(indirizzamento implicito). 

Al posto $01 (istruzione $01) c’è $06 
(indirizzamento indicizzato indiretto). E 
così via. 

Assemble (figura 3) ($CC80-$CCC3) 
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A Milano, 

in via Mascheroni 14. 
la prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla libreria JACKSON 

La prima software - libreria italiana. 

A Milano, in via Mascheroni 14. 

TBl. 02-437385 

Vieni a trovarci: ti aspettiamo. 
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Cerca nella tabella Mnemo l'istruzione 
mnemonica digitata. Se non esiste dà 
segnalazione d'errore. Altrimenti l'indi¬ 
ce alla tabella è un codice che memoriz¬ 
za per dopo. 

($CCC5-$CE2A) 

Esamina i caratteri digitati per trovare il 
tipo d'indirizzamento e memorizzare il 
valore o l'indirizzo presenti. 

($CE2C-$CE71) 

Riprende il codice precedentemente 
memorizzato e lo cerca nella tabella Co- 
dis. Quando lo trova usa l’indice attuale 
alla tabella Codis (istruzione in linguag¬ 
gio macchina) e lo utilizza per prendere 
un valore dalla tabella Indir. Confronta 
tale valore con il tipo d'indirizzamento 
trovato all'inizio. Se coincidono vuol di¬ 
re che l'istruzione è stata digitata con un 
corretto tipo d’indirizzamento. 

Se non coincidono incrementa l'indice 
alle tabelle Codis e Indir e continua il 
ciclo. Ma se arriva a fine tabella significa 
che il tipo d'indirizzamento digitato è 
illecito per quella istruzione. 

All'uscita dal ciclo (se tutto OK) l'indice 
alle tabelle è proprio il codice linguag¬ 
gio macchina cercato. Pone tale codice 
in memoria e, a seconda del tipo di indi¬ 
rizzamento pone in memoria un altro 
byte, altri due o nessuno. Poi salta alla 
fine della routine Poke per la stampa 
dell'indirizzo successivo all'ultimo usato 
e la preparazione ad un altro Input. ■ 

Continua 
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Figura 2 - Dlsassemblato completo di Monitor 64. 
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Dalla grande edicola Jackson 

Tutto sull’hobby e home computer 



kmcowh 

La rivista del computer In casa. "Prove su 
strada" di software e programmi per tutti i 
personal computer 
11 numeri all'anno; L 3.500 a numero 
Abbonamento: solo L 31.500 

Il mondo delle 7 nolo in 
versione ...elettronica. Con test strumentali, 
novità e analisi del mercato, servizi speciali. 
10 numeri all'anno: L 3.000 a numero 
Abbonamento: solo L. 24.000 


elektor 

Il mensile di elettronica venduto In mezzo 
milione di copie e redatto in 7 lingue. Con 
articoli su: applicazioni, progettazioni, 
sperimentazioni, invenzioni. 

11 numeri all'anno: L 3.000 a numero 
Abbonamento: solo L 29.000 

UiD€0 

GiOChi 

La guida indiscussa al fantastico mondo dei 
videogames. La più eccitante, divertente, 
istruttiva rassegna del settore. 

11 numeri all'anno: L 3.500 a numero 
Abbonamento: solo L 31.000 


Quando l'informazione 
fa testo 

In busta chiusa inviata questo coupon a: 
Gruppo Editoriale Jackson 
via RoselMnl. 12 - 20124 Mi 

O Oesidero ricevere GRATIS un numero 
della Rivista _ 


(allego L 1000 in francobolli per 
contributo spese di spedizione) 

□ Inviatemi GRATIS il Catalogo della 
Biblioteca JACKSON (allego L 1.000 
in francobolli per contributo spese di 
spedizione) 

Nome _ 

Cognome _ 

via _ 

CAP _ Città _ 

I__ 
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Quoziente 

intelligenza 

Una serie di test per misurare la vostra 

intelligenza 

di Ivano Parbuono 


I l programma qui di seguito de¬ 
scritto non è uno dei soliti giochi, 
bensì una cosa molto simpatica e 
che incuriosirà moltissimo anche i 
vostri amici, oltre ad essere sotto un 
certo aspetto istruttivo per le nozioni 
(anche se in verità non molte) che si 
possono apprendere. Noi crediamo 
che, chi più chi meno, tutti abbiamo 
sentito parlare del famoso Quoziente 
Intelligenza: che poi per impostazione o 
per validità risponda esattamente al va¬ 
lore reale di una persona, questo a voi 
stabilirlo, o ai molteplici trattati che esi¬ 
stono in materia. Una cosa è certa : test 
di questo tipo sono sempre più utilizzati 
per stabilire la preparazione culturale, 
la prontezza di riflessi, la capacità di 
adattamento e il buon senso di una per¬ 
sona. Tutto ciò è avvalorato dal fatto 
che molte aziende e numerosi concorsi 
pubblici si affidano a test di questo tipo 
per la selezione del personale da assu¬ 
mere ed adibire a determinate mansio¬ 
ni. 

Il programma qui realizzato, dietro 
consigli di esperti e dopo aver letto libri 
in materia (dai quali sono state tratte) 
ed avendo tratto da questi delle indica¬ 
zioni utili, è stato così strutturato: dopo 
una breve presentazione si chiede se si 
vogliono le istruzioni, nelle quali è spie¬ 
gato in maniera molto sommaria cosa 
sono l'intelligenza, il quoziente intelli¬ 
genza e l'età mentale. Dopo ciò ver¬ 
ranno le istruzioni vere e proprie relative 
al programma e la rappresentazione di 


alcuni esempi. Al termine di tutto que¬ 
sto, vi verrà chiesto il nome e l'età, dopo 
di che inizieranno le domande, che so¬ 
no 50 in totale e che spaziano in vari 
campi, dalla conoscenza di nozioni 
pratiche alla storia, dalla geografia alla 
comprensione di certe regole matemati¬ 
che, dalla prontezza di riflessi alla ca¬ 
pacità di adattamento. Al termine delle 
50 domande verrà segnalata la quanti¬ 
tà di risposte esatte che si sono date: in 
base a queste verranno assegnati dei 
coefficienti, che, in relazione all'età di 
chi si è sottoposto al test e ad alcune 
operazioni matematiche fatte dal com¬ 
puter, daranno il valore della vostra età 
mentale e il valore del vostro quoziente 
intelligenza. Quando il valore del vostro 


Q.l. sarà stato visualizzato si potrà con¬ 
frontare con la tabella generale dei va¬ 
lori Q.l. che apparirà di seguito sullo 
schermo: si potrà cosi stabilire la fascia 
alla quale si appartiene. 

I valori sono riferiti naturalmente a 
questo test, ma chiaramente si possono 
trarre delle conclusioni ben più ampie, 
anche se naturalmente non tutti saran¬ 
no d'accordo sulla loro validità. 
Passiamo ora ad un'analisi più appro¬ 
fondita del programma stesso, in ma¬ 
niera da poter rendere più chiara ed 
accessibile l'interpretazione delle sin¬ 
gole righe con la possibilità di eventuali 
miglioramenti o traduzioni su altri tipi di 
computer. 

Inizieremo subito con le righe che parto- 


Llstato 1-11 programma Quoziente Intelligenza. 

•3.00 BORDER B: POR Poi TO 9 STEP 
CRN0#6) : PAUSE 5 

à. 1 S-r- P tS T ^ 4 -? +P ' aa ®- p; DR«U 0,32: 
PLOT 32 +P,152-P: DRflU 32,0 
115 PLOT 112-^P, 12C-P: DRflU -24-, 
0: DRAU 0,32; ORAI,! 24-,0; PLOT 80 
+P,136-P: DRAU 14-, 0 
120 PLOT 13B+P,120-P: DRAU 24., 0 
: DRAU 0,18: DRAU -24-, 0; DRAU 0, 
18: DRAU 24- , 0 

12B PLOT 200+P,120-P: DRAU 0,32 
: PLOT 184-+P, 1S2-P: DRAU 32,0 
130 PLOT 68+P,4.8-P: DRAU -24-, 0: 
DRAU 0,32. DRAU 24-, 0: DRAU 0,-3 
2; PLOT 80+P,56-P; DRAU 16,-14- 
138 PLOT 160 + P, 4-8—P : DRAU 0,32: 
PLOT 1S2*P,48-P: DRAU 16,0; PLO 
T 182 +P ,80 —P: DRAU 16,0 
14.0 PLOT 112+P, 4-6—P: DRAU 4-,0: 
PLOT 184.+P , 4-6-P: DRAU 4-,0 
180 NEXT P _ _ _ 

è 90 PRXNT AT 10,3;"$»f 
";AT 20,2; BRIGHT 1; f REALIZZAT 
O DA IUANO PARBUONO": PAUSE 200: 


CLS 

200 BORDER 7. PAPER 7: INK 1; P 
RINT AT 10,4-; "UUOI LE ISTRUZIONI 
S/N ?" 

204- POKE 23609,100 

20S INPUT R $ _ 

210 IP R$a“S" THEN GO SUB 8000 
215 IP Rja"S" THCN GO SUB 8000 
220 LET L =350 : LET M=500: LET E 
*0; LET N =0 : LET A =4; LET B«2 
24.5 CLS : PRINT AT 2,5; BRIGHT 
1;"FRA POCO INIZIAMO”; PAUSE 100 
250 INPUT "COME TI CHIAMI?";Pf 
255 PRINT AT 10,B; BRIGHT 1; FL 
ASM l;"CIRO ";p* 

260 PRINT AT 16,4.; FLASH l;"OUR 
NTI ANNI HAI?": INPUT K: PRINT A 
T 16,22; BRIGHT 1 ;K : PAUSE 200 
270 CLS : PRINT AT 6,10; BRIGHT 
1; "OK ";P*;AT 14-,2; FLASH l; 
BRIGHT l;"SE SEI PRONTO PREMI UN 
TASTO "; AT 16,10;" PER INIZIARE 
": PAUSE 0 
310 GO TO 700 
350 INPUT ” ";R 
370 READ X 

380 IP X < > R THEN GO TO 4-00 
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Quoziente intelligenza 


SPECTRUM 


Seguito listato Quoziente intelligenza. 

390 LET E*E + 1: PRINT flT lB,«i J 
NUERSE 1 ; B R 2gHT l;"ESATTO":BEE 
P .06,08: BEEP .02,4: BEEP .8,2: 
PAUSE 20: RETURN 

400 PRINT RT 18,20; INUERSE li 
BRIGHT 1;“ERRATO": PAUSE 20: RcT 

U 500 CLS : LET N-N+l: POR I=PI-P 

1 TO URL "248” 8TEP URL "8" : PLO 
T I,URL ”162": DRRU URL "7",UAL 
" 7 ": PLOT X , URL "159": DRRU URL 
"7", URL '* -7" : NEXT X 

Sl6 FOR I-PX-PX TO URL "248" 6T 
EP UAL "8": PLOT X,URL "2": DRRU 
URL “7",URL "7“; PLOT I,URL “9" 
: DRRU URL "7",URL "-7": NEXT I: 
PRINT RT 2,15; BRIGHT 1; N 
515 PLOT 0,2: DRRU 0,157: PLOT 
256,2: DRRU 0,157: RETURN 
700 BORDER 7: PAPER 7: INK 0 
706 GO SUB M: PRINT RT A,B; "QUA 
LX DELLE SEGUENTI PAROLE NON 

E' UNA CONGIUNZIONE.1 » PUR 

E.2 « DUNQUE.3 ■ FUORCHÉ*"' 

"4 » INFATTI": GO SUB L 
710 GO SUB M; PRINT RT R,B;"QUA 
LE GRANDE STATISTA ITRLIRNOSTIPU 
LO LR TRIPLICE ALLEANZA CONRUSTR 
IR E GERMANIA?"'''"1 * CRISPI. 

2 "-SE PRETIS.3 ■ RATTAZZI"'"4 

• GREGORETTI": GO SUB L 

720 GO SUB M: PRINT RT A.B-1;"C 
HI SCRISSE LR FATIDICA FRASE"*'" 
LIBERI NON SAREH SE NON SIAH UNI 

.1 ■ HANZONI"'“2 » MAZZINI"' 

"3 ■ MERCANTINI.4 ■ DANTE": GO 

SUB L 

730 GO SUB M: PRINT RT A,B; " 
QUALE MONETA CIRCOLA 

IN BRASILE?.1 » L'ESCUDO"' 

"2 ■ IL REIS 3 ■ IL CRUZIERO"' 

"4 a LR PESETA"; GO SUB L 
740 GO SUB M: PRINT RT A.B;"XNS 
ERISCI IL NUMERO MANCANTE*''" 27 

-30 -32 -36 -37 - .... -42. 

1 - 38.2 a 39.3 - 40.4 - 4 

4.6 « 41": GO SUB L 

750 GO SUB M: PRINT RT R,B,"72 
E' TANTO SUPERIORE A 51 QUR 

NTO INFERIORE R ....?": GO SUB L 


I 

RPI 


760 GO SUB M: PRINT RT R,B;" 

L GRUPPO DI LETTERE 

TPSPTRP E' UGUALE A:.1 - RP 

TIPSPTRP.2 ■* RPITSPTPRP.3 - 

RPITPSTPRP"'"4 a RPITPSPTRP"'"6 
» RPIPTSPTRP": GO SUB L 
770 GO SUB M: PRINT RT R,B-1;"I 
L GRUPPO DI NUMERI 6866886866 
E' UGUALE R:"'''"1 = 6868688686 " 
-"2 * 6866868866 '" "3 = 636688668 

6.4 a 6686886866.5 = 6866886 

666": GO SUB L 

7B0 GO SUB M: PRINT RT A,B;"IL 
GONT-AOniO- DI- BIASIMO" '' '"1 *- DEH 

DONO.2 a MAGNANIMO"'"3 ■ GIUST 

IZIA"•■ LODE"'"B a COMPRENSIÒ 

'*790 GO SUB M: PRINT RT R,B-lJ "S 
CRRTRRE RNRGRAMMRNDO LE PAROLE C 
HE SEGUONO QUELLA CHE NON X 
NDICR UN FIUME"'''”1 = COEN 2 

- CIMINO"'“3 - BLENRSO.4 = NUB 

IODR"'"5 a ERUETE": GO SUB L 
800 GO SUB M: PRI HTOTA,B-l; S 
SONARE LR LETTERA CHE COMPLETALA 


Figura 1 - La presentazione 



no dalla 100 e che, aprendo un loop 
chiuso poi alla linea 150 permettono la 
scritta iniziale di presentazione in rilievo 
per mezzo di Plot e Draw. Alla linea 200 il 
programma chiede se si vogliono le i- 
struzioni in attesa dell’Input posto alla 
linea 205. Se si risponde con S, sia maiu¬ 
scola che minuscola, il programma - 
con un Gosub ci manda alla linea 5000, 
dove inizia la routine delle istruzioni. Al¬ 
la linea 204 è stata sistemata una istru¬ 
zione Poke, che fa in modo di inserire 
sui tasti del computer un clic sonoro: da 
quel momento ogni volta che si preme 
un tasto si sentirà un beep e ciò verrà 
utile in seguito, al momento in cui si 
dovranno dare delle risposte. Ripren¬ 
diamo ora, da dove avevamo interrotto, 
la descrizione inerente le istruzioni, e 
cioè dalla linea 5000, che, fino alla 5140 


comprende una routine di scorrimento 
orizzontale, intervallata da una lettera 
all’altra da un pause 5. Dalla linea 5150 
fino alla linea 5180 continuano sempre 
le istruzioni, ma presentate in maniera 
diversa e cioè proiettate sul video a 
blocchi intervallati da pause più o meno 
lunghe. Terminate le istruzioni, alla li¬ 
nea 5185 è stato sistemato un comando 
che permette di scrivere l’istruzione 
“premi un tasto per continuare" al di 
sotto delle normali righe : così facendo 
appaiono in successione sul video, per 
mezzo delle linee che vanno dalla 5200 
alla 5230, tre esempi con le relative ri¬ 
sposte esatte; questo per dare un'idea 
di come si svolgerà il test Q.I., terminan¬ 
do con questi esempi la parte dedicata 
alle istruzioni. 

Premendo poi un tasto, la linea 5250 ( 


ove è stato sistemato un Return, ci ri¬ 
manderà alla linea 220) ove sono stati 
collocati vari Lèt corrispondenti a linee 
e righe del programma: è stato fatto ciò 
per risparmiare memoria. Le istruzioni 
che vanno dalla linea 245 alla 270 av¬ 
vertono dell'inizio del programma, chie¬ 
dendo il nome e l'età. Nel momento in 
cui si premerà un tasto inizierà il pro¬ 
gramma con le relative domande, cioè 
entra in azione la linea 310, che, con un 
Goto manda il programma alla linea 
700, ove viene ristabilito tutto lo scher¬ 
mo bianco, mentre poi la linea 705, con 
un Gosub M (che come abbiamo visto 
alla linea 220 corrisponde a 500), invie¬ 
rà appunto il programma alla linea 500, 
dove innanzitutto verrà pulito lo scher¬ 
mo. Il contatore delle domande si incre¬ 
menterà ogni volta di 1, mentre il For I 
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Seguito listato Quoziente intelligenza. 


SEPIE Q-Z f5-U C—U O—• • " * 

''"1 m R"'"2 a E “ ' "3 = P"'"4 = Q 
m F" .•—•CO -SUB S_ . 

810 GO SUB M: PRINT AT R<B-lJ Q 
URL E MARE ERR -r- 

* MRRE INFERUM? *"'''"1 = IL T 
IRRENO"'"2 = L ADRIATICO 3 = L 

O IONIO.4- = IL MEDITERRANEO : 

^820 GO SUB M: PRINT RT fliBj NEL 
LO STEMMA DI QUALE CITTA ITALI 
quq m‘ RAFFIGURATO UN GRIFONE? 

''"1 m MILANO.2 a PERUGIA" 3 

= BARI"'"4 = NOUARA": GO SUB L 
830 GO SUB M: PRINT AT A,B; ’QUA 
LE NUMERO UENIUA INDICATO DAGLI 
ANTICHI ROMANI CON LA LETTERA 
U SORMONTATA DA UN TRATTO ORIZ 

ZONTALE?.1 ■ 5.000.2 = 10 

.000" '"3 • 15.000.4- =100.000 

GO SUB L _ 

04.0 GO SUB M: PRINT AT A , B; "LA 
SICILIA HA UNO SVILUPPO COST 
IERO HRGGIORE DI QUELLO DELL 

A SARDEGNA?.1 * SI.2 = NO" 

'"3 » UGUALE": GO SUB L 
850 GO SUB M: PRINT AT A,8; “NON 
RIENTRA NELLA SERIE"'''"1 = ROM 

A"'"2 a PARIGI.3 » LONDRA.4- 

a ZURIGO.3 = HADRID": GO SUB L 

860 GO SUB M: PRINT AT A,B;"INS 
ERISCI IL NUMERO MANCANTE 

8,10,7,12,©.....1 « 8.2 

- Il" ' "3 » 20*'"4 = 14..5 = 15 

": GO SUB L 

SUB M: PAINT AT A,B; "IND 
ICARE IL NUMERO MANCANTE ALL' 
INTERNO DEL TRIANGOLO"'': PLOT £ 
£àS 8: DAAU 20,32: DRAU 20.-32: D 
AgU PLOT 104-, 88: DRAU 20, 

2 a = OAAU 20,-32; DRAU -40,0: PLÓ 
2: ^rAu 8 !*©^^ a ®' 3 * : DRAU 20,-3 

875 PRINT AT 8,3;"5";AT 8,7;"3" 
;at 9,4.; "14-"; at ll,5;"l";RT 8,13 
; "9" ; AT 8,17; "4." ; AT 9 , 14.; "25" ; AT 

11,15;"il";AT 8,23;"7";AT 8,27; 
"3";AT 9,25;"?";AT 11,25;“5" 

876 PRINT AT 13,0;"1 = 24.2 = 

16.3 = B.4 a 20.5 * 12"; 

GO SUB L 

880 GO SUB M: PRINT AT A+S,B+5; 
"IN QUALE ANNO"'" CRISTOF 

ORO COLOMBO. • -HO -SCOPERTO L' 

AMERICA?": GO SUB L 
890 GO SUB M: PRINT RT A,B;"QUA 
LE DELLE SEGUENTI ESPRESSIONI E' 

ERRATA.1 = IO BEVO TUTTO. 

2 « UIUERE CANTANDO.3 = IO MI 

MANGIO UN PANINO.4 * GUARDATE 

Zf&Y s SS°8&'L b = correre nei 

uSJI £Ìt?^a m ha5^ rt 

: g"r‘Bo m s 

UB L 

910 GO SUB M: PRINT AT A,B;"IND 
ICARE IL NUMERO COMUNE A 

LLE 4 SERIE DI NUMERI 7- 

5"3~ • # • S-1 ■“9"# • # ® “ 

7-0-. . . 3-8-4-. . ..1 - 

15.2 a 12.3 * 20"'"4 * 14”: 

GO 3UB L 

920 GO SUB M: PRINT AT A,B;"IL 
CONTRARIO DEL NUMERO 3"'''"1 »G 

REM ITO.2 = VUOTO.3 = PI 5 N 9. 

"4 a META''"”5 = MINIMO": GO SUB 

L 

930 GO SUB M: PRINT AT A,B-i;“C 
HI HA SCOLPITO LA STUPENDA PORTA 


DEL PARADISO DEL BATTISTERO DI 

FIRENZE?.1 ■ DONATELLO"'"2 

= GHIBERTI 3 » IACOPO DELLA QU 

ERCIA": GO SUB L 
940 GO SUB M. PRINT AT A,B+6;"C 
VDONIA VULGARIS CHE CO 

SA SI CHIAMA COSI'?"'''"1 = IL C 

OTOGNO"'“2 = IL COTONE.3 « LA 

CICOGNA.4 = L'AQUILA": GO SUB 

L 9B0 GO SUB M: PRINT AT A,B; “QUA 
NTI SONO I VERSI DI UN SONE 

TTO?" ' " " i s 8"'"2 = 12.3 a 14- 

i. a- 16" .— CO -SUB L 
960 GO SUB M: PRINT AT A,B;"QUA 
LE E' IL PIU' VASTO STATO DELL' 
AFRICA'*"'''" 1 = ALGERIA" 2 a EG 

_ suDAN" • GO SUB L 

J 970 GO SUB S M? PRÌNT°AT A,B^;QUA 
LE NON RIENTRA NELLA SERIE? ___ 
1 a VERDI"'"2 = MOZ ART "' 3 - BOT 

TICELLI"'"4 a DONIZETTI 5 - CH 

OPIN": GO SUB L 

980 GO SUB M: PRINT AT A,B; "QUA 
LE DI QUESTI LAGHI SI TROVA IN U 

MBRIA?'"""1 * MAGGIORE.2 » BR 

ACCIANO.3 ■ CHIUSI"'"4 ■ MISUR 

INA.5 = TRASIMENO": GO SUB L 

990 GO SUB M: PRINT AT A,B,“QUA 
LE ELEMENTO CHIMICO HA PER SIHBO 

LO Hg?.1 = L'ARGENTO.2 ■ 

IL MERCURIO.3 = L'IDROGENO"'"4 

= L'OSSIGENO.5 = L'ARGON": GO 

SUB L 

1000 GO SUB M: PRINT AT A,B-1;"N 
EL DISEGNARE LA CARTINA GEOGRAFI 
CA DI UNA REGIONE,OGNI TRATTOLU 
NGO UN CHILOMETRO VIENE RAPPRESE 
NTATO CON UN TRATTO LUNGO 20 CE 

1005 PRINT "QUANTI MILIONI DI UO 
LTE LA CARTINA E' PIU' PICCOLA D 

ELLA REGIONE.1 -10"'“2 ■ 15 

.3 = 25.4 * 50.5 - 200": G 

O SUB L 

1010 GO SUB M: PRINT AT A,B+3;"Q 

UALE LETTERA MANCA? . 

V-S-P-M-...-E"''' 1 » C '"2 

0"'"3 - P.4 - F.5 - H : GO 

SUB L 

1020 GO SUB M: PRINT AT A,B;"SE 
A — 2 C * 6 Z — 42 
F - 12 P - ... QUALE 

E'IL NUMERO CORRISPONDENTE": GO 
SUB L 

1030 GO SUB M: PRINT AT A,B;"DOV 
E SI TROVANO LE GROTTI DI ALTAM 
IRA, FAMOSE PER LE IMPORTANTI PI 

ttuAe PREISTORICHE?.1 

CIA'" "2 = ITALIA.3 - GRECIA. 

4 - SPAGNA": GO SUB L 
1040 GO SUB M: PRINT RT fl,B; "SAN 
GENNARO ERA VESCOVO 

DI NAPOLI?.1 = SI.2 a 

NO":—CO -SUB L 

1050 GO SUB M: PRINT AT A,B; "LA 

-®nnz sfera • E'—uno --parte _ 

DELL'ATMOSFERA?""1 - SI.2 

- NO": GO SUB L 

1060 60 SUB M: PRINT RT A,B;"CHE 
COS'E' CHE VIENE CHIAMATO 

BIOTINA?"'''"1 = UNA VELA 

.2 = UNA PIANTA.3 = UNA VITA 

MINA.4 = UN U£RME": GO SUB L 

1070 GO SUB M: PRINT AT A,B; "QUA 
NTE PROVINCE HR LA REGIONE 

TOSCANA?"'''"1 = 6.2 - 8 

.3 a 9.4 « 10.6 a 11"; GO 

SUB L 

1080 GO SUB M: PRINT AT A,B; "ALE 
SSANDRO MANZONI SI RISPOSO' DO 

PO ESSERE RIMASTO VEDOVO?.1 

a SI.2 = NO": GO SUB L 

1090 GO SUB M: PRINT AT A+4,B;"C 
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Quoziente intelligenza 


ZXSPECTRUM 


Seguito listato Quoziente Intelligenza. 

ONTINUARE LA SEQUENZA CON 
IL NUMERO SUCCESSILO 

1-3-0-27-...": OO SUB L 
1100 QO SUB M: PRINT AT A+5,B;“ 

CONTINUARE LA SEQUENZA. 

95-83-72-82-S3-...QO SUB L 
1110 GO SUB M. PRINT AT A,8; "QUA 
LE E' UGUALE AL NUMERO 1 ** : CIRC 
LE 30/100,12: CIRCLE 60,90,10: C 
IRCLE 100,96,13: CIRCLE 14-0,102, 
11: CIRCLE 185,88,12: CIRCLE 230 
,101,13.3 

1115 PRINT AT 9,3;"1";AT 10,7;"2 
“;AT 9,12;"3";AT e,17;"4";AT 10, 

23;"t5";AT 9,28; "6"; GO SUB L 

1129 GO SUB M: PRINT AT A,B;"IL 
RISULTATO DI 6*10*100*0 

«r. UGUALE R 1 = 6000“ 2 

* 60000.3 = 0" "'4 * 60.5 * 6 

00000": GO SUB L „ _ ,, 

1130 GO SUB M: PRINT AT A+5,B, 

SE 28 DONNE SU 100 FUMANO, _. © 

UANTE DONNE SU 800 NON FUMALO? : 

GO SLIB L 

1140 GO SUB M: PRINT AT A+5.B-1; 
"INDICARE IL NUMERO CHE COMPLETA 
" LA SERIE 72-65-58-51-.. 

Ì150 G GO & SUB L M: PRINT AT A,B; “LE 
ARAGOSTE NON SI DEUONO MANGIARE 
IN CASA PERCHE' BISOGNACUOCE 
RLE UIUE IL CHE E' COME TORTU 

RARLE”'' ' " 1 a UERO.2 a FALSO": 

GO SUB L 

1160 GO SUB M: PRINT AT A,B;"QUA 
NTE CONIUGAZIONI ESISTONO N 

ELLA LINGUA ITALIANA?"'''"1 « 5" 
'"2 = 3"'"3 a 4" ' "4 ■ 2 : GO SUB 

1170 GO SUB M: PRINT AT A,B-lj"S 
E CANE = 12 FINESTRA a 24 
SCARPA = 18 ROSSO * 15 

FARFALLA a ..1 * 2 

4.2 ■ 16.3 a 26.4 a 28.5 

= 18": GO SUB L 

1180 GO SUB M: PRINT AT A.B; "COM 

PLETARE LA SERIE. 3 

15 6 2 10 

3 25 7 5 

7 3.1 * 12.2 a 5 

"'"3 = 22.4 = 16.5 a 18": GO 

SUB L 

1190 60 SUB M: PRINT AT A,B-1;"G 
LI ANIMALI CHE HANNO UN NUMERO P 

ARI DI DITA SONO DETTI ..1 

a ARTIODATTILI"'"2 a PERISSODAT 

TILI.3 a PTERODATTILI.4 a IS 

ODATTILI": GO SUB L 

3000 DATA 3,2,1,3,3,93,4,5.4,3,4 

^1^2^1^1^4,4,2,1492,3,3,1,2,2,1, 

3010 DATA 3,5,2,4,2,2,3,4,1,81,4 
5,5,0,360,44,2,2,1,4,i 
3400 CLS : PAUSE 50 

3S00 BORDER 6: PRINT AT 10,5; IN 
bbibht 1; " il t " t b ‘ TC 

3550 PAUSE 100: CLS : PRINT AT © 
,2; BRIGHT 1;"LE TUE RISPOSTE ES 
ATTE SONO": INVERSE 1: PRINT AT 
18,10;E;" SU 50": INUERSE 0 
3580 PAUSE 200: CLS : PRINT AT 4 
,0; INK 2; FLASH 1;"VALORE MEDIO 

ETÀ' MENTALE = 800.UALORE 

MEDIO QUOZ.INTELL. = 72"; FLAS 

H 0; BRIGHT 1; .. UUOI CONOS 

CERE I TUOI UALORI?"; BRIGHT 0;' 

( Y ✓ N X " 

3600 INPUT L* 

3610 IF L*a"N" THEN GO SUB 9000 
3615 IF L*a"n" THEN GO SUB 9000 


3650 GO SUB 7000 
5000 LET Fa0 

5030 CLS ; BORDER 4: PRINT RT 4, 
10; BRIGHT li "PREMESSA" 

5110 INK 2: LET A*«"L'INTELLIGEN 
ZA NON E' L'INSIEME DELLE COGNIZ 
IONI ACQUISITE,CIO'CHE SI SA, MA 
E' LA CAPACITA' CHE SI HA DI CO 
NOSCERE. IL Q.I. NON E' LA 

MISURA DI CIO' CHE SI E* IMPARA 
TO, MA PIUTTOSTO DELLA CAPACITA' 
DI IMPARARE. L'ETÀ ; MENTALE 

DI UN INDIUIDUO E' CIO' CHE IN G 
ENERE UN TEST DI INTELLIGENZA HA 
LO SCOPO DI DEFINIRE_ 

5120 FOR 1*1 TO LEN fi» 

5130 PRINT AT 10,C32-IRNDI<32> 
;A*((I-31 OR I<32> TO I): BEEP • 

5140 3 PAU3E 5: NEXT I: PAUSE 50: 

§150 PRINT RT 2,10; BRIGHT 1;"IS 

^? 55 I pRiNT . , . il computer ti p 
orra' P delTe do-mande, esattament 
e 50 «ile gu< u*ncht *e senza 1 
imiti di tempo dovrei risponde 
re abbastanza velocemente. : PA 

S 1 S 0 S PRINT Le <4°B*ndea* P ?S 

ieranno su vari campi »»?Ìi5tiea 
noscenza uidfì A ; di t tA 
atllieogrlfieldalle cose prmt 

: rkp 11 ii prori“tfizz3 di ri f l^ss 
i e saranno piu'o meno difficili 

S162>PAUSE 200: PRINT tt0;"PREMI 

UN TASTO PER CONTINUARE " 

5165 ppint 'Alle domande che 

ti verranno presentate dovrai 
rispondere semplicemente prem 
endo i l numerocorrispondente m 
quella che se-condo te e' la ris 
posta esatta seguito da ENTER”: 
PAUSE 250 

5170 PRINT '" O dare addirittura 
la risposta completa sempre seg 
uita da ENTER": PAUSE 200 
5175 PRINT Le risposte ESATTE 

varranno se-gnaiate visivament 
e ed accompì-gnate da un BEEP. 

Mentre le risposte 
ERRATE verranno segnalate solo v 
isivamentc . PAUSE 200 
5180 PRINT '" Alla fine del TEST 
ti verrà' assegnato un punteggi 
o de terminatoda l computar in bas 
e a dei coe-ficienti inseriti n 
el programma stesso.": PAUSE 200 
5185 PRINT »0;"PREMI UN TASTO PE 

.LflSM 

5210 R PRINT 1 «T E 4?2 P "NON RIENTRA N 

B^"3 S I R SdIgÉ" ' "ì = ADDA"^"5 2^ 
INCIO";AT 16,0;"LA RISPOSTA ESAT 

52li PR I MT M «0?”|g=MI UN TASTO PE 
«ÌM?^f C 2?12; FLASH 
1; BRIGHT 1;"ESEMPI 

5220 >PRINT AT 4,0; "IN CHE ANNO E 
• ENTRATA IN VIGORE LA COSTITUZI 

ONE ITALIANA?.1 = 1945.2 

= 1S44"'"3 * 1947"'"4 * 1948"'"5 

= 1949.LA RISPOSTA ESATTA 

E 'LA NUMERO 4" __ __ 

5225 PRINT »0, - "PREMI UN TASTO PE 
R CONTINUARE": PAUSE 0 
5228 CLS : PRINT AT 2,12 ; FLASH 
l; BRIGHT 1;"ESEMPI" 
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Seguito listato Quoziente Intelligenza. 


5230 PRINT AT 8/0;"INDICARE IL N 

UMERO CHE COMPLETA.LA SERIE 

55 —SS-60-50-55-4-5- « . ... 

LARISPOSTA ESATTA E' 50" 

5235 PRINT #0;"PREMI UN TASTO PE 
R CONTINUARE".- PAUSE 0 
E250 RETURN 

- IF E<=S THEN LET U=20 

E > S AND E < »10 THEN LET W 


7020 

7030 
=22 
7035 
U=26 
7040 
U =30 
7045 
U! =35 
7050 
IJ=43 
7055 
U*B0 
7060 
7065 
7070 
7075 
7080 
7085 
7090 
7100 
7110 
7120 
7150 
; "IL 
ETÀ' 
7160 
LASH 


IP 


IF E>10 AND E<»20 THEN LET 
IF E>20 AND E<=30 THEN LET 
IF E>30 AND E<=40 THEN LET 
IF E>40 AND E<=48 THEN LET 
IP E>48 AND E<=50 THEN LET 


IF U =20 THEN LET C=8 
IF U =22 THEN LET C=9 
IF U =26 THEN LET C = 10 
IF U=30 THEN LET C=ll 
IF U =35 THEN LET C = 12 
IP U =43 THEN LET C = 13 
IP U =30 THEN LET C = 14 
LET Z=C*(E+U> 

LET H=Z-K#2 
LET I.H/1B 

CLS : PRINT AT 4,5; FLASH 1 
UALORE DELLA TUA ";AT 7,6;” 
MENTALE E'"; BRIGHT 1;2 
PAUSE 200: PRINT AT 12,4; P 
li BRIGHT l;"IL UALORE DEL 
TUO QUOZ.";AT 14,6;"INTELLIGENZA 
E'"; FLASH 0, I 

7170 PRINT »0;“PREMI UN TASTO PE 
R CONTINUARE PAUSE 0 

7200 CLS : PRINT AT 10,4; FLASH 
l;"VUOI CONOSCERE LA SCALA";AT 1 
2,9, " DEI VALORI?"; AT 14,11;"< S 
7 N )": INPUT S* 

7210 IP S$="n“ THEN GO SUB 9000 
7220 IF S*="N" THEN GO SUB 9000 
7300 CLS : PRINT AT 2,4.; BRIGHT 
l; "SCALA DEI UALORI O.I." 

fiT BM; "valore q.i.l" 
M T Q 5'i 6 i« v ^i uta2ion ®"' fiT *•»12; " 
*.~ÀS ’ _Z.'i*' !..__ 


73&0 INK 3': PLOT 8,125: DRAU 85. 
0 PLOT 128,125: DRAU» 87,0? INK' 

7350 PRINT AT 8,6;"> 131 | 2X EC 


Figura 3 - Rappresentazione di una delle cinquanta domande. 



CEZIONALE";AT 9,2;"120 - 130 I 4 
OTTIMO"; AT 10,2; "100 - 119 | 9 

SUPERIORE"; AT 11,2; " 80 - 99 

I 21X MEDIO SUPERIORE";AT 12,2, " 
£5 - 70 |35X MEDIO";AT 13,2, " 5 

O - 64 | 17X MEDIO INFERIORE" 


7355 PRINT RT lt , 2; " 30 _ — 49^ 


8X MEDIOCRE";RT 15,2," 14 - 
P 3 V. PESSIMO"; AT 16,2;" 0 - 13 

9 IV. NON HA CERVELLO" 

7360 PRINT tt©;"PREMI UN TASTO PE 
R CONTINUARE ": PAUSE 0 
7370 CLS : PRINT AT 9,4; FLASH 1 
"GUALCHE ALTRO UUOLE FARE":AT I 
2,7; " IL TEST C S 7 N INPUT 

sr 


SUB 

SUB 


>80 IF s*="n" THEN GO 
7390 IF S*="N" THEN GO 
7400 CLS : GO TO 1 
9000 CL5 : PRINT AT 10,14; 
1 ; BRIGHT l;"CIAO" 


9000 

9000 

FLASH 


Figura 2 - La richiesta del dati. 


FRA POCO INIZIAMO 


CIAO CARLA 


QUANTI ANNI HAI? 33 


Figura 4 - Esemplo con relativa risposta esatta. 


ESEMPI 


INDICARE IL NUMERO CHE COMPLETA 
LA SERIE 65-55-60-50-53-45-... 


LARISPOSTA ESATTA E' 50 
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successivo creerà un primo tratto relati¬ 
vo alla cornice delle domande e le istru¬ 
zioni di linea 510 e 515 creeranno il resto 
della cornice, terminando con un Re¬ 
turn che rimanderà il programma alla 
linea 705 per permettere l'apparizione 
della prima domanda sul video per mez¬ 
zo del Print A.B, che usa come valori 
quelli riportati alla linea 220. Prose¬ 
guendo sempre nell'analisi della linea 
705, l'istruzione Gosub L invierà il pro¬ 
gramma alla linea 350, dove è stato col¬ 
locato l'Input R per le risposte da dare, 
mentre alla linea 370 è stata collocata 
l'istruzione Read X, che leggerà in se¬ 
quenza progressiva i dati di linea 3000 e 
3010. 

La linea 380 ha il compito di confron¬ 
tare il valore che Read X ha trovato con 
la risposta R: se il valore di X è diverso 
da quello di R, il programma darà la 
segnalazione d'errore; se invece X risul¬ 
ta uguale ad R, il programma prosegui¬ 
rà con la linea 390, il contatore delle 
risposte giuste s'incrementerà ed appa¬ 


rirà in caratteri luminosi la scritta “Esat¬ 
to” seguita da alcuni "Beep": dopo una 
brevissima pausa il programma ritorne¬ 
rà alla domanda successiva, situata al¬ 
la linea 710, per ripetere di nuovo tutto 
l'iter precedente. Tutto ciò si ripete fino 
alla linea 1190, dove è situata l'ultima 
domanda, la cinquantesima. La linea 
3550 comunica il totale delle risposte 
esatte. La linea 3580 fa apparire sullo 
schermo il valore medio dell’età mentale 
e il valore medio del quoziente intelli¬ 
genza (riferito a questo test specifico). 
Una volta che il computer ha comunica¬ 
to i valori medi vi verrà chiesto se volete 
conoscere i vostri valori relativi a questo 
test. 

Le linee comprese tra la 7020 e la 7055 
hanno il compito di controllare la quan¬ 
tità delle risposte esatte ed assegnano 
loro un valore, mentre le linee comprese 
tra la 7060 e la 7090 assegnano un coef¬ 
ficiente al valore precedentemente as¬ 
segnato. 

La linea 7100 stabilisce la vostra età 


mentale, la 7110 e la 7120 determinano 
invece il quoziente intelligenza (Z corri¬ 
sponde al valore della vostra età menta¬ 
le calcolato in precedenza, K corrispon¬ 
de alla vostra età reale inserita all’inizio 
del programma). Le linee 7150 e 7160 
hanno il compito di visualizzare sul vi¬ 
deo i valori ottenuti dalle varie operazio¬ 
ni; la 7200 chiede se volete conoscere la 
scala generale dei valori, in modo da 
confrontarli con il vostro. Rispondendo 
affermativamente, verrà stampata una 
scala di valori riferita al Q.I.. Premendo 
poi un tasto qualsiasi, il video si pulisce 
e se nessun altro vuole fare il test, il 
programma termina con un “Ciao" per 
mezzo della linea 9000. ■ 


Figura S - Rappresentazione del valori medi età mentale e Q.l. 


Figura 6 - Valori relativi al test effettuato, In questo caso, da Carla. 


URLORE MEDIO BTfl' MENTALE = SO® 

URLORE MEDIO QUOZ.INTELL. = 72 


IL. VALORE DELLO TUR 
ETÀ' MENTALE E ' 804 


VUOI CONOSCERE I TUOI UALORI7 
C V / N ) 


IL. URLORE DEL TUO OUOZ. 
INTELLIOENZR E'73.S 


Figura 7 • La risposta esatta è la 2: Il Nilo è l'unico fiume non Italiano. 


ESEMPI 

NON RIENTRR NELLR SERIE 


1 « PO 

2 - NILO 

3 - ADIGE 

4- * RDDR 

S e MINCIO 


LR RISPOSTA ESATTA E ' LA NUMERO 2 


Figura 8 - Rappresentazione grafica della scala generale del valori. 


SCRLR DEI URLORI O.I. 

vilori 

R . i . 

v« lutazione 


> 

131 

27. 

ECCEZIONALE 

12® 

— 

13® 

4 X 

OTTIMO 

10® 

— 

HO 

97. 

SUPERIORE 

80 

— 

90 

2 17. 

MEDIO SUPERIORE 

66 

— 

70 

3S7. 

MEDIO 

SO 

• 

04. 

177 

MEDIO INFERIORE 

30 

— 

4.9 

87. 

MEDIOCRE 

14 

— 

20 

37. 

PESSIMO 

0 


13 

17. 

NON HA CERUELLO 
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Palla che rimbalza 

U n giorno, a casa di un amico, 
ho potuto vedere alcuni giochi 
di provenienza USA girare su 
un TI 99/4A equipaggiato con 
armamento pesante, cioè espansione, 
floppy, editor/Assembler, speech syntheti- 
zcr, ccc. In quell’occasione rimasi colpito 
da un programma che simulava il gioco del 
tennis. Una voce da Odissea nello Spazio 
scandiva i punteggi, “fifteen - thirty”, “fif- 
teen - forty”, e la pallina rimbalzava in 
modo molto realistico. Potere degli sprite. 
Sono stati i protagonisti anche all’ultimo 
corso di BASIC da me organizzato. Non 
c’è niente che attragga l’attenzione e stimo¬ 
li la fantasia di un ragazzo, più di uno 
spiritello che aleggia sullo schermo. Qual¬ 
cuno è tentato di creare un gioco lì per lì, 
come se si trattasse di oggetti reali da mani¬ 
polare con la tastiera invece che con le 
mani; ma le difficoltà non tardano a venire 
ed è bene non farsi troppe illusioni. 

Il computer o il video che è il mezzo 
elettivo con il quale ci comunica, ci presen¬ 
tano un microcosmo bidimensionale dalle 
leggi fisiche alterate; non c’è gravità nè 
attrito, i corpi, quando si urtano, invece di 
rimbalzare elasticamente si compenetrano 
senza deformarsi proseguendo nel loro 
moto inerziale. Ma che strano moto iner¬ 
ziale. Invece di allontanarsi indefinita¬ 
mente dal punto di partenza, una volta 
varcato il bordo dello schermo, ricompaio¬ 
no esattamente dal lato opposto. Districar¬ 
si tra i Print, gli Input e gli If-Then Else, 
poteva essere un’impresa ardua ma non 
impossibile, ma qui, per tutti i diavoli, per 
far saltare una pallina bisogna conoscere la 
geometria e la fisica, e ricreare a suon di 
formule il mondo che ci è familiare. 

Il libro della Natura è scritto in lingua 
matematica, diceva Galileo Galei, che non 
a caso viene qui citato per essere stato il 
precursore nell’enunciazione delle leggi 
che regolano la caduta dei gravi e che 
descrivono le traiettorie dei corpi che si 
muovono sotto l’azione delle forza di 
gravità. 

“Proiectum, dum fertur motu composito 
ex horizontali aequabili et ex naturaliter 
accelerato deorsum, ecc.” (Discorsi, IV). 



Gli sprite, nel TI 99/4A, hanno la caratte¬ 
ristica, non comune a tutti gli altri compu¬ 
ter, di mantenere la loro velocità automati¬ 
camente grazie ai parametri presenti nell¬ 
’istruzione Cali Sprite e nella Cali Motion. 
Ad esempio, nel Commodore 64 il movi¬ 
mento avviene modificando continua- 
mente i registri che controllano la posizio¬ 
ne. 

Una pallina che rimbalza si può immagi¬ 
nare animata contemporaneamente da due 
movimenti, uno uniforme lungo la dire¬ 
zione orizzontale ed uno uniformemente 
accelerato lungo la direzione verticale. Nel 
primo la velocità è costante, la qual cosa si 
ottiene facilmente nel TI 99/4A definendo 
una volta per tutte l’intensità della compo¬ 
nente orizzontale della velocità. Nel listato 
1 è stato posto VX = 20, un valore che 
sposta lo sprite verso destra consentendo 
qualche rimbalzo prima che la pallina attra¬ 
versi tutto lo schermo. La componente 
verticale deve variare secondo la legge 
Vy=Voy-gt; se inizialmente la pallina vie¬ 
ne lanciata verso l’alto, la sua velocità dimi¬ 
nuisce di una quantità proporzionale al 
tempo. Quando, aumentando t, il prodot¬ 
to gt diventa uguale a Voy, la velocità Vy 
risulta uguale a zero, la pallina pertanto 
smette di salire avendo raggiunto il punto 
più alto della sua traiettoria e poi comincia 
a scendere. Il nostro computer non possie¬ 
de la funzione Time ed il passare del tempo 
dev’essere scandito incrementando una va¬ 
riabile: T=T+ 1. In fisica se tè espresso in 
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Palla che rimbalza 


TEXAS TI99/4A 


secondi e V in m/s, la costante g assume il 
valore 9,7805 o, come riportano la mag¬ 
gior parte dei testi, 9,8. Noi, poiché 
aumentando T nel modo descritto in pre¬ 
cedenza, non abbiamo un tempo espresso 
in secondi, non potremo usare questo va¬ 
lore di g. Nel programma 1, alla linea 150, 
abbiamo posto g=2. Perche abbiamo 
scritto VY + z^T invece di VY-i*T co¬ 
me suggerisce un confronto con la formula 
data in precedenza? 

La ragione sta nel sistema di riferimento 
adottato. Normalmente l’asse verticale è 
orientato verso l’alto mentre il computer 
(non tutti) pone l’origine nell’angolo in 
alto a sinistra del video e pertanto orienta 
l’asse verticale verso il basso. A questo si 
rimedia attribuendo a VY’ valori negativi e 
a g valori positivi. Basta un meno o un più 
per farci andare a gambe all’aria. 
Eseguendo il programma vedrete la palli¬ 
na rimbalzare da sinistra verso destra se¬ 


guita dalla fedele ombra più in basso. A 
proposito, come si fa in modo che la pallina 
non scenda al di sotto della sua ombra? Se 
controlliamo la posizione dovremo farlo 
quando la pallina è ancora al di sopra dell¬ 
’ombra, ma in tal caso il computer non 
distingue se lo sprite sta scendendo o se sta 
salendo. Conviene controllare la velocità. 
Se c negativa la pallina sta ancora salendo, 
se è positiva, allora sta scendendo. E quan¬ 
do sappiamo che la pallina è prossima al 
rimbalzo? Quando la componente vertica¬ 
le della velocità è vicina al valore iniziale 
VY con il segno cambiato; la pallina cioè 
cade con la stessa velocità con la quale era 
salita. Poiché inizialmente era VY =-50, se 
V diventa maggiore di 45 significa proprio 
che siamo quasi arrivati, poniamo lo sprite 
al centro dell’ombra con una provviden¬ 
ziale Cali Locate, invertiamo il segno a V, 
azzeriamo l’orologio c via per un altro 
rimbalzo. 


Qualcuno osserverà giustamente che la 
pallina prima o dopo dovrà fermarsi; gli 
urti non sono perfettamente elastici, parte 
dcH’encrgia viene assorbita e a ogni rim¬ 
balzo viene raggiunta una minore altezza 
mentre la traiettoria si fa meno ampia. La 
modifica del programma risulta abbastan¬ 
za agevole, basta inserire un ciclo For- 
Next che faccia diminuire ad ogni rimbalzo 
la componente verticale della velocità. Nel 
programma Palla 2, VY viene fatta variare 
da -6o a 5 ottenendo così l’effetto deside¬ 
rato senza ulteriori sostanziali cambiamen¬ 
ti (listato 2). 

Che dire poi della palla da tennis dalla quale 
ha preso inizio il nostro discorso? Una 
pallina da tennis rimbalza continuamente 
da sinistra a destra e da destra a sinistra. Le 
modifiche rispetto al primo programma 
sono ancora più semplici ed invece di tante 
spiegazioni proponiamo una specie di 
quiz. Se qualcuno non trova una soluzione 


Listalo 1 - Il programma Palla 1. 

100 REM PALLA 1 

110 CALL CLEAR :: CALL CHAR(128,"071F3F7 
F 7F " &RPT* < " F ••, 12 ) & •* 7F7F3F 1F07E0F8FCFEFE " 
«.RPTUCF", 12)&"FEFEFCF8E0" ) 

120 CALL CHAR<132,RPT*<"0", 16) «."0F3F7FFF 

7F3F0F "&RPT* <" 0 ",1 8 > & "F0FCFEFFFEFCF000“ ) 

130 VX=20 :: VY=-50 :: T=1 

140 CALL SPRITE<#1, 128, 12, 150, 10,VY,VX,tt 

2,132,2, 158,10,0,VX): : HALL MAGNIFY(3) 

150 T = TH :: V=VY+2#T :: IF V 45 THEN CA 

LL M0TI0N < tt 1, V, VX ) : : GOTO 150 

160 V=— 50 :: T=1 :: CALL P0SITI0N (#2,Y, X 

):: CALL LOCATE (tt 1 , 150, X >: : GOTO 150 


Listato 3 • Il programma Palla 3. 

100 REM PALLA 3 

110 CALL CLEAR :: CALL CHAR(128,"071F3F7 
F7F".?<RPT* < "F" , 12) it"7F7F3FlF07E0FBFCFEFE" 
*<RPT* < "F" , 12) &"FEFEFCF0E0" > 

120 CALL CHAR (132,RPT*("0" ,16)&"0F3F7FFF 
7F3FOF " &RPT* < " 0" , 1 8 ) *. " F0FCFEFFFEFCF000 " ) 
130 VX=30 :: VY=-50 :: T=1 
140 CALL SPRITE (Iti, 128, 12, 150, 10,VY,VX.tt 
2,132,2,158,10,0,VX) : : CALL MAGNIFY<3) 
150 T=T+1 :: V=VY+2#T :: IF V<45 THEN 17 
0 

160 V--50 :: T^l :: CALL POSITION(#2,Y,X 
):: CALL LOCATE (ttl , 150, X ): : VX = -VX :: CA 
LL MOT ION (#2, 0,VX ) 

170 CALL MOTION (#1, V, VX): : GOTO 150 


Listato 2-11 programma Palla 2. 

100 REM PALLA 2 

HO CALL CLEAR :: CALL CHAR< 128, "071F3F7 
F7F"?<RPT* ( "F" , 12) V7F7F3F1F07E0FSFCFEFE" 
!<RPT$ ( M F" , 12) VFEFEFCF8E0" > 

120 CALL CHAR(l32,RPT$("0" , 16)&"0F3F7FFF 

7F3F0F"&RPT*("0",18) V'FOFCFEFFFEFCFOOO") 

130 VX=10 : : VY=-60 : : T=1 

140 CALL SPRITE (Iti . 128, 12, 150, 10, VY, VX, tt 

2,132,2, 158,10,0,VX): : CALL MAGNIFY(3) 

150 FOR VY=—60 TO -5 STEP 5 

160 T=T+1 :: V=VY+2*T :: IF V<ABS<VY+4)T 

HEN CALL MOTION (ttl , V, VX) : : GOTO 160 

170 V=VY :: T=1 :: CALL POSITION(#2,Y,X> 

:: CALL LOCATE (tt 1 , 150, X ) 

180 NEXT VY : : T=1 s: BOTO 140 


Listato 4-11 programma Palla 4. 

100 REM PALLA 4 

110 CALL CLEAR :: CALL CHAR(128,"071F3F7 
F7F "&RPT* ( "F" , 12) !■ " 7F7F3F1F07E0F8FCFEFE M 
&RPT4 ( "F" , 12) .VFEFEFCF8E0" ) 

120 CALL CHAR ( 132, RPT* ( "0" , 16) &"0F3F7FFF 
7F3F0F" l-.RFT* ( " 0 ", 18 > & " FOFCFEFFFEFCFOOO " ) 
130 VX=60 :: VY=-50 :: T=1 
140 CALL SPRITEtttl, 128, 12, 150, 10, VY, VX, tt 
2,132,2,158,10,0,VX): : CALL MAGNIFY <3) 
150 T=T+1 :: V=VY+4*T :: IF V<45 THEN 17 
0 

160 V=-50 :: T=1 :: CALL P0SI710N(#2,Y,X 
):: CALL LOCATE (ttl , 150, X) : : VX=-VX :: CA 
LL MOTION(#2,0,VX > 

170 CALL MOTION ( tt 1, V, VX> : : GOTO 150 
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Palla che rimbalza I! 

TEXAS TI99/4A 


di Paolo Agostini 


soddisfacente può esaminare il listato 3, ma 
è invitato a farlo non prima di aver esegui¬ 
to qualche tentativo. 

Vogliamo infine aggiustare il tiro. Dopo 
tutto la risposta contenuta nel programma 
3 sembra piuttosto un “pallonetto”. Sa¬ 
preste ottenere un colpo teso e all’apparen¬ 
za dotato di una maggiore energia? Un 
consiglio: aumentare VX e simulare un 
campo gravitazionale più intenso. Non 
arrendetevi subito, una possibile soluzio¬ 
ne, è contenuta nel listato 4. ■ 


File Examiner 


M olto spesso succede di in¬ 
contrare difficoltà nell’esa- 
minare programmi in BA¬ 
SIC o in linguaggio macchi¬ 
na, a causa del fatto che hanno qualche 
sistema di protezione oppure perché nel 
corso del caricamento, vengono posizio¬ 
nati in locazioni di memoria difficilmente 
accessibili (Per esempio RAM posta sotto 
la memoria ROM), o altro. 

Per ovviare a tale inconveniente, abbiamo 
progettato il programma Filex per il C 64 
che ha le seguenti funzioni: 

1) legge la directory del disco senza distur¬ 


bare la memoria del computer; 

2) legge da disco e visualizza i programmi 
in BASIC convertendone i “token” in pa¬ 
role-chiave; 

3) legge da disco e disassembla i program¬ 
mi in linguaggio macchina, visualizzandoli 
sullo schermo sotto forma di codice in 
linguaggio Assembly; 

4) legge da disco e visualizza file numerici 
o di altro tipo, quali ad esempio i file di un 
word processor. 

Il programma, proprio a causa della di¬ 
versificazione dei compiti che si propone, è 
abbastanza lungo, e necessita della massi¬ 
ma attenzione nella trascrizione dei dati 
relativi ai codici operativi. Noterete infatti 
la presenza, in coda ad ogni codice, di 
quella che viene chiamata dagli addetti ai 
lavori “opcode tag”, cioè di una lettera che 
segue le tre lettere del codice operativo e 
che serve a specificarne il “modo”: 

1) codice di 3 lettere seguito da uno spazio 


Listato 1 - Il programma Filex. 

5 POKE53280,4:POKE53281 ,7 :PRINTCHR$(147); 

CHR$(31);"ATTENDERE PREGO" 

7 FORX=lTOl8:X$=X$+CHR$(32):NEXTX:GOSUBl0 
00 

9 REM- 

10 REM *** MENU PRINCIPALE *** 

11 REM - 

20 PRINTCHR$(147);TAB(7);CHR$(176);:FORI= 
1T023:PRINTCHR?(192); :NEXT 
30 PRINTCHR5(174) 

40 PRINTTAB(7);CHR$(221);SPC(5);"FILE EXA 
MINER";SPC(5);CHR$(221) 

50 PRINTTAB(7);CHR$(221) ;SPC (5);"DI P.AGO 
STINI";SPC(5);CHR$(221) 

60 PRINTTAB(7);CHR$(173); :FORI = lT023:PRIN 
TCHR$(192); :NEXT 
70 PRINTCHR6(189) 

80 PRINT:PRINT:PRINTTAB(17);CHR$(18);"MEN 
U";CHR$(146) 

90 PRINT:PRINT:PRINT 

100 PRINTTAB(6);CHR$(18);" (1) ";CHR$(146 

);SPC(2);"LEGGI LA DIRECTORY" 

110 PRINT:PRINTTAB(6);CHR$(18);" (2) ";CH 

R$ ( 1 4 6);SPC (2);"LEGGI IL FILE" 

130 PRINT:PRINTTAB(6);CHR$(18);" (3) ";CH 
R$ ( 146);SPC(2);"FINE" 

140 PRINT:PRINT:PRINTTAB(16);CHR$(18);"QU 
ALE?";CHR$(146) 

150 GETA$:A=VAL( A$):IFA<10RA>3THEN1 50 
160 ONAGOTO 200,500,3200 
170 END 

179 REM - 

180 REM CHIUSURA CANALI APERTI 

181 REM--- 

190 PRINT#15,"10":CLOSEl:CLOSEl5:G0T031 00 


1 99 REM---.. 

200 REM **** LEGGE LA DIRECTORY **** 

201 REM - 

210 PRINTCHR6(147):PRINT"DISK NAME = "; 
220 CLOSEl:CLOSEl5 :FL=0:L$ = "":B$ = "" 

230 OPENl,8,0,"$":OPENl5,8,15 

240 INPUT#15,El,El$,E2,E3:IF El THENPRINT 
El,E1 $ : GOTO190 
250 FORI=1T033:GET#1,A$ 

260 L$=L$+A$:NEXT:CLOSEl:PRINTL$ 

270 FORI=1TO40:PRINTCHR?(45);:NEXTI 
280 PRINT"{RVS}BLOCKS{ 3 SPAZI}FILE NAME 
{ 6 SPAZI}TIPO " 

290 OPENl,8,0,"$" 

300 GET#1,A$:GET#1,A$:GOSUB350 
310 GOSUB350:IF FL=1 THENPRINT:GOTOl90 
320 PRINTRIGHT$(X$+STR$(L),4);CHR$(32);CH 
R$(32);CHR$(32); 

330 PRINTLEFT$(B$+X$,18);FT$:GETA1$ :IFA1$ 
<>""THEN3070 
340 GOTO310 

349 REM - 

350 REM SUBROUTINE LETTURA DIRECTORY 

351 REM - 

360 B$ = "":GET#1,A$:GET#1,A$ 

370 GET#1,A$:L=ASC(A$+CHR$(0)) 

380 GET#1,A$:L=L+ASC(A$+CHR$(0))*256 
390 GET#1,A$: INPUT#15,El,El$,E2,E3:IF El 
THENPRINT El,El$:GOTOl90 
400 IFA$ = ""THENFL=1 : RETURN 
410 IFA$OCHR$ (34) THEN390 
420 GET#1,A$ 

425 IFPEEK(653)THEN425 

430 IFA$=CHR$(34)THEN450 

440 B$=B$+A$:GOTO420 

450 GET#1,A$:IFA$=CHR$(32)THEN450 

460 FT$=A$ 
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COMMODORE 64 


470 GET#1,A$:FT$=FT$+A$:GET#1,A$:FT$=FT$+ 
A$ 

480 GET#1 , A$ :IFA$< >""THEN480 
490 RETURN 

499 REM... 

500 REM *** LETTURA DEL FILE *** 

501 REM - 

510 PRINTCHRS(147):PRINTCHR$(18);"NOME DE 

L FILE (ANCHE CON *) ":PRINT 
520 INPUTF$:PRINT:PRINT:IFF$=""ORFS="*"TH 
EN500 

530 PRINTCHRS(1 8) ; "TIPO DI FILE 

{ 2 SPAZI}(PROG/SEQ/USR)PRINT:INPUT 
T$ 

540 TS=LEFT$(T$,1) :PRINT:PRINT:IFT$<>"S"T 
HENIFT$<>"P"THEN IF T$0"U"THEN500 
545 PRINTCHR$(18);"VISUALIZZO COME NUMERI 
O LETTERE? (S/N) ":PRINT:PRINT 
550 GETA$:IFA$<>"S"ANDA$O"N"THEN550 
552 IF A$ = " S "THEN3300 

555 PRINTCHRS(18);"PROGRAMMA IN {OFF} BAS 
IC {RVS} O IN {OFF} L.M {RVS} ":PRINT 

560 GETA$ : IFA$O"B"ANDA$<>"L"THEN560 
565 IFA$="L"THEN750 

569 REM - 

570 REM ** LETTURA PROGRAMMI BASIC ** 

571 REM - 

580 PRINTCHRS(147);CHR$(18);"{ 2 SPAZI}** 

*{ 2 SPAZI}LETTURA PROGRAMMA IN BASIC 
{ 2 SPAZI}***{ 2 SPAZI}" 

585 CLOSEl:CLOSEl5:OPENl5,8,15 
590 OPEN1,8,5,"0:"+F$+","+T$+“,R" 

600 INPUT#!5,E1,El$,E2,E3:IF El THENPRINT 
El » El$ :GOTOl90 

610 GET#1,A$:L=ASC(AS+CHRS(0)):GET#1,A$:L 
=L+ASC(A$+CHR$(0))*256 
620 PRINT"LOCAZ. DI INIZIO DEL PROGRAMMA: 
";L 

630 PRINT"(NORMALMENTE 2049 PER IL BASIC) 

":PRINT:PRINT:PRINT 

640 SL=0:GET#1,A$,A$:IFA$*""THENGOTOl90 
650 GET#1, AS,B$:GETAl$ :IFAl$<>""THEN3070 
655 IFPEEK(653)THEN655 

660 N=ASC(AS+CHRS(0))+ASC(BS+CHRS(0))*256 
:PRINTN; 

670 GET#1,A$:P=ASC(A$+CHRS(0)):IFP=0THENP 
RINT:GOTO640 

680 IF(PEEK(212)<>0)OR(P<128)THENPRINTCHR 
$(P) ; :GOTO700 
690 PRINTA$(P-l28); 

700 IF(A$*":" OR A$ = ",")AND(PEEK(211)>65) 
THEN730 

710 IFPEEK(211)>75THEN730 
720 GOTO670 

730 PRINT:PRINTN;:SL“SL+1:GOTO670 
740 END 

749 REM - 

750 REM *** LETTURA PROGRAMMI L.M. *** 

751 REM - 

760 PRINTCHRS(147);CHR$(18);"* LETTURA PR 

OGRAMMA IN CODICE MACCHINA *" 

765 CLOSEl:CLOSEl5:OPENl 5,8,1 5 
770 OPEN!,8,5,"0:"+F$ + ","+T$+",R" 


800 INPUT#15,E1,E1$,E2,E3:IF El THENPRINT 
El , El$ : GOTOl90 

810 GET*1, AS:L=ASC(A$+CHR$(0)):GET#1,A$:L 
=L+ASC(A$+CHR$(0))*256 
820 PRINTCHRS(18);"LOCAZ.DI INIZIO DEL PR 
OGRAMMA:";L:PRINT:PRINT 
830 GET#1,AS:IFA$=""THENA$=AS+CHR$(0) 

835 IFPEEK(653)THEN835 
840 OP=ASC(A$+CHR$(0)) 

850 GOSUBl500 :GETAl$ : IFA1 $<>" " THEN3 0 70 
860 IFST=0THEN830 

870 INPUT#15,E1,ElS,E2,E3:IF El THENPRINT 
El , El$ :GOTOl90 
880 IFST=64THENl90 
890 GOTO830 
900 : 

910 : 

920 : 

930 REM ****************************** 

940 REM * FILEX * 

950 REM * DI PAOLO AGOSTINI * 

960 REM * V. PASCOLI, 5/B - PADOVA * 

970 REM ****************************** 

980 END 

989 REM - 

990 REM *** INIZIALIZZAZIONE *** 

991 REM - 

1000 DIMAS(255): FORI=0TO75:READAS(I):NEXT 

1010 DATA END,POR,NEXT,DATA,INPUT#,INPUT, 
DIM,READ , LET , GOTO , RUN , IF , RESTORE , GOS 
UB 

1020 DATA RETURN,REM,STOP,ON,WAIT,LOAD,SA 
VE,VERIFY,DEF,POKE,PRINT#,PRINT,CONT 


1030 


1040 

1050 

1059 

1060 
1061 
1062 
1070 
1080 
1 090 
1100 
1110 
1120 

1130 

1140 

1150 

1160 

1 1 70 
1 1 80 
1200 
1210 

1 220 


DATA LIST,CLR.CMD,SYS,OPEN,CLOSE,GET 
,NEW,TAB(,TO,FN,SPC(,THEN,NOT,STEP,+ 

DATA *,/,t,AND,OR,>,=,<,SGN,INT,ABS, 
USR,FRE,POS,SQR,RND,LOG,EXP,COS,SIN 
DATA TAN,ATN,PEEK,LEN,STRS,VAL,ASC,C 
HR$,LEFT$,RIGHTS,MID$,GO 

REM- 

REM *** DATI CODICE ASSEMBLER *** 

REM *** ATTENZIONE AGLI SPAZI !! 

REM -- 

DATA BRK ,ORAF,?,?,?,ORAC,ASLC,? 

DATA PHP ,ORAB,ASL ,?,?,ORAA,ASLA,? 
DATA BPLJ,ORAG,?,?,?,ORAH,ASLH,? 

DATA CLC ,ORAE,?,?,?,ORAD,ASLD,? 

DATA JSRA,ANDF,?,?,BITC,ANDC,ROLC,? 
DATA PLP ,ANDB,ROL ,?,BITA,ANDA,ROLA 

DATA BMIJ,ANDG,?,?,?,ANDH,ROLH,? 

DATA SEC ,ANDE,?,?,?,ANDD,ROLD,? 

DATA RTI ,EORF,?,?,?,EORC,LSRC,? 

DATA PHA ,EORB,LSR ,?,JMPA,EORA,LSRA 

,? 

DATA BVCJ»EORG,?,?,?,EORH,LSRH,? 

DATA CLI ,EORE,?,?,?,EORD,LSRD,? 

DATA RTS ,ADCF,?,?,?,ADCC,RORC,? 

DATA PLA ,ADCB,ROR ,?,JMPK,ADCA,RORA 

,? 

DATA BVSJ,ADCG,?,?,?,ADCH,RORH,? 
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Seguito listato Fllex. 


1230 
1240 
1250 
1260 
1 270 
1 280 

1 290 

1 300 
1 31 0 

1 320 
1330 

1 340 
1 350 
1360 
1370 

1 380 
1 390 
1395 
1 400 
1410 
1420 

1430 
1 440 
1 499 

1500 

1501 
1510 
1 520 

1 530 
1540 

1550 

1560 

1570 

1599 

1600 
1601 
1610 
1690 
1699 
1 700 
1701 
1710 
1720 
1730 

1740 
1 750 
1790 
1799 
1 800 
1 801 
1 810 
1 820 


DATA SEI ,ADCE,?,?,?,ADCD,R0RD,? 

DATA ?,STAF,?,?,STYC,STAC,STXC,7 
DATA DEY ,?,TXA ,?,STYA,STAA,STXA , ? 
DATA BCCJ , STAG,?,?,STYH,STAH,STXI,? 
DATA TYA ,STAE,TXS ,?,?,STAD , ?,? 

DATA LDYB , LDAF,LDXB,?,LDYC,LDAC , LOXC 

,? 

DATA TAY ,LDAB,TAX , ?,LDYA,LDAA,LDXA 
i 7 

DATA BCSJ , LDAG , ? , ? , LDYH,LDAH , LDXI , ? 
DATA CLV / LDAE , TSX ,?,LDYD , LDAD , LDXE 
,? 

DATA CPYB,CMPF,?,?,CPYC,CMPC,DECC,? 
DATA INY ,CMPB,DEX , ?,CPYA,CMPA,DECA 
,? 

DATA BNEJ,CMPG,?,?,?,CMPH,DECH,? 

DATA CLD ,CMPE,?,?,?,CMPD,DECD,? 

DATA CPXB, SBCF,?,?,CPXC,SBCC,INCC , ? 
DATA INX ,SBCB,NOP ,?,CPXA,SBCA,INCA 
,? 

DATA BEQJ,SBCG,?,?,?,SBCI,INCI,? 

DATA SED ,SBCESBCD,INCD,? 

DATA * 

DIMRS(255) 

FOR T = 0TO255: READ R$(T) : NEXTT 

READRS : IFR$< >" *"THENPRINT"ERRORE NEG 

LI OPCODE": END 

RETURN 

END 

REM - 

REM STAMPA SULLO SCHERMO GLI 
OPCODE ASSEMBLER 

REM - 

OX=L:GOSUB3000:PRINT".,";OX$; 

PRINT"{ 2 SPAZI}";LEFT$(R$(OP),3) ;" 

• I • 

U$ = RIGHT$ (R$(OP) , 1 ) 

IFU$="?"THENOX»OP:GOSUB3000:PRINTSPC 
(5);CHR$(18);OX$:L”L+1 : RETURN 
IFU $ = " "THENGOSUBl 600:RETURN 
ONASC(U$)-64GOSUB1700,1800,1900,2000 
,2100,2200,2300,2400,2500,2600,2700 
RETURN 

REM- 

REM MODO IMPLICITO 

REM --- 

L=L+1:PRINT: RETURN 

REM - 

REM MODO ASSOLUTO 

REM - 

PRINT" 

GET# 1 ,A$:GET#1,B$ 

OX=ASC(A$+CHR$(0))+ASC(B$+CHR$(0))*2 
56 : GOSUB3000 
L=L+3 : PRINTOX5 
RETURN 

REM--- 

REM MODO IMMEDIATO 

REM -- 

PRINT" #$"; 

GET*1,A$ 


1830 OX=ASC(A$+CHR$(0)):GOSUB3000 
1840 L=L+2:PRINTOX6 
1850 RETURN 
1890 : 

1899 REM - 

1900 REM MODO PAGINA ZERO 

1901 REM - 

1910 PRINT" 

1920 GET#1,AS 

1930 OX=ASC(A$+CHR$(0)):GOSUB3000 
1940 L=L+2:PRINTOX$ 

1950 RETURN 
1990 : 

1999 REM - 

2000 REM MODO ASSOLUTO,X 

2001 REM - 

2010 PRINT" $"; 

2020 GETI1,AS:GET#1,B$ 

2030 OX=ASC(A$+CHR$(0))+ASC(B$+CHR$ (0))*2 
56 :GOSUB3000 

2040 L=L+3:PRINTOX8;",X" 

2050 RETURN 

2099 REM - 

2100 REM MODO ASSOLUTO,Y 

2101 REM - 

2110 PRINT" 

2120 GETIl,A$:GET#1,B$ 

2130 OX=ASC(A5+CHR5(0))+ASC(B$+CHR$(0))*2 
56 :GOSUB3000 

2140 L=L+3:PRINTOX8;",Y" 

2150 RETURN 
2190 : 

2199 REM - 

2200 REM MODO (INDIRETTO,X) 

2201 REM - 

2210 PRINT" ($"; 

2220 GET#1,A$ 

2230 OX=ASC(A$+CHR$(0)):GOSUB3000 
2240 L=L+2:PRINTOX$;",X)" 

2250 RETURN 
2290 : 

2299 REM - 

2300 REM MODO (INDIRETTO),Y 

2301 REM - 

2310 PRINT" ($"; 

2320 GET*1,A$ 

2330 OX=ASC(A$+CHR$(0)):GOSUB3000 
2340 L=L+2:PRINTOX$;"),Y" 

2350 RETURN 
2390 : 

2399 REM - 

2400 REM MODO PAG. ZERO,X 

2401 REM - 

2410 PRINT" 

2420 GET#1,A$ 

2430 OX=ASC(A$+CHR$(0)):GOSUB3000 
2440 L=L+2:PRINTOX$;",X" 

2450 RETURN 
2490 : 

2499 REM - 

2500 REM MODO PAG. ZERO,Y 

2501 REM - 

2510 PRINT" 

2520 GET#1,A$ 

2530 OX=ASC(A$+CHR$(0)):GOSUB3000 
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COMMODORE 64 


2540 L=L+2:PRINTOX$;",Y" 

2550 RETURN 
2590 : 

2599 REM - 

2600 REM SALTO RELATIVO 

2601 REM - 

2610 PRINT" 

2620 GET#1,A$ 

2630 OX=ASC(A$ +CHR$(0)) 

264 0 OX=OX+(OX>l 27)* 256:OX=OX+L:GOSUB3000 

2650 L=L+2:PRINTOX$ 

2660 RETURN 
2690 : 

2699 REM - 

2700 REM SALTO INDIRETTO 

2701 REM - 

2710 PRINT" ($"; 

2720 GET#1,AS:GET#1 ,B$ 

2730 OX=ASC(A$+CHR$(0))+ASC(B$+CHR$(0))*2 
56 :GOSUB3000 
2740 L=L+3:PRINTOX8;")" 

2750 RETURN 
2790 : 

2999 REM - 

3000 REM TRASFORMAZIONE DEC/HEX 

3001 REM - 

3010 OX$="":H$="0123456789ABCDEF" 

3020 IFOXTHENA=INT(OX/16):OX$=MID$(H$,1+0 
X-A*16,1)+OX$:OX=A:GOTO3020 
3030 IFLEN(OX$)<2THENOX$ =RIGHT$("00"+OX$, 
2) 

3040 IF(LEN(OX$)<4)AND(LEN(OX$)>2)THENOX3 
=RIGHT$("0000"+OX$,4) 

3050 RETURN 
3060 : 

3069 REM-- 

3070 REM INTERRUZIONE ROUTINE LETTURA 

3071 REM...- 

3080 CLOSElrCLOSEl5 

3090 PRINT:PRINTCHR?(18);"* INTERRUZIONE D 
ELLA{ 2 SPAZI)ROUTINE DI LETTURA*" 

3099 REM - 

3100 REM ROUTINE DI ATTESA 

3101 REM - 

3110 PRINT:PRINTTAB(10);CHR$(18);" PREMER 

F- UN TASTO " 

3120 GETA$:IFA$=""THEN3120 
3130 GOTO10 

3199 REM... 

3200 REM FINE PROGRAMMA 

3201 REM...-.. 

3210 CLOSEl:CLOSEl5:PRINTCHR$(147): END 
3220 END 

3299 REM.... 

3300 REM LETTURA NUMERICA FILE 

3301 REM.-.- 

3310 PRINTCHRS(147);CHR$(18);"LETTURA DEL 

FILE IN FORMA NUMERI/LETTERE" 

3320 CLOSEl:CLOSEl5:OPENl5,8,15 
3330 OPENl,8,5,"0:"+F$ + ","+T$ + ",R" 

3340 INPUT#15,E1,E1$,E2,E3:IF El THENPRIN 
T El,E1$:GOTOl90 

3350 GET#1,A$:L«ASC(A$+CHR$(0)):GET#1,A$: 
L=L+ASC(A$+CHR$(0))*256 



Il PERSONAL COMPUTER 
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COD v’8P L. 29 000 
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COD S34A i 45 000 
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COD S43P L. 19 000 
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Seguilo listalo Fllex. 


3360 PRINT"LOCAZIONE DI INIZIO DEL PROGRA 
MMA: " ; L : A1 $ = "":PRINT 

3370 INPUT#15,El,E1$,E2,E3:IF El THENPRIN 
T El,El$ :GOTOl90 

3373 PRINT"SE E' UN FILE DI WORD PROCESSO 
R PREMI" 

3374 PRINT"IL TASTO Fi, IN CASO CONTRARIO 

QUALUN-" 

3375 PRINT"QUE ALTRO TASTOPRINT:PRINT 

3376 GETAl $ :IFAl $ = ""THEN3376 

3377 IFAl$=CHR$(133)THEN3550 

3380 GET#1,A$:GETAl$ :IFAl$<>""THEN3070 

3385 IFPEEK(653)THEN3385 

3390 IFST=00THEN3410 

3400 IFST=64THENl 90 

3410 X=ASC(A$+CHR$(0)):X0$=STR$(X) 

3420 X0$=RIGHT$ (X0$ ,LEN(X0$)-1 ) 

3430 X0$=" "+RIGHTS("000"+X0$,3)+" ":PRIN 
TX0$ ; 

3440 IFX<350RX>127THENPRINT"{GIU 1 } 

{ 4 SIN}{RVS}{ 3 SPAZI}{OFF}{SU} "; 
3450 IFX>34ANDX<128THENPRINT"{GIU'} 

{ 4 SIN}{RVS} ";CHR$(X);" {OFF}{SU} 

Il • 

3455 IFX=34THENPRINT"{GIU'}{ 4 SIN}{RVS} 

’ {OFF}{SU} "; 


3460 IFPOS(0)>38THENPRINTCHR$(13) 

3470 GOTO3380 
3475 : 

3480 REM LA STRINGA ALLA LINEA 3440 E' CO 
MPOSTA DA: 1 CRSR DOWN + 4 CRSR LEFT 
4* 

3490 REM 1 REVERSE ON + 3 SPAZI + I REVER 
SE OFF+ 1 CURSOR UP + 1 SPAZIO 
3500 REM LA STRINGA ALLA LINEA 3450 E’ CO 
MPOSTA DA: 1 CRSR DOWN + 4 CRSR LEFT 
+ 

3510 REM 1 REVERSE ON + 1 SPAZIO;CHR$(X); 
+1 SPAZIO+RVS OFF + 1 CRSR UP+1 SPAZ 
IO 

3520 REM LA STRINGA ALLA LINEA 3455 E' CO 
ME LA RIGA ALLA LINEA 3440 CON UN 
3530 REM APOSTROFO IN LUOGO DELLO SPAZIO 
CENTRALE 

3539 REM - 

3540 REM TRASCRIZIONE FILE IN LETTERE 

3541 REM--- 

3550 GET#1,A$:GETAl$:IFAl$<>""THEN3070 
3560 IFPEEK(653)THEN3560 

3570 IFST=00THEN3590 
3580 IFST=64THENl90 

3590 IFA$=CHR$(34)THENPRINT":GOTO3550 
3600 IFA$=""THENGOTO3550 
3610 IFASC(A$)<32THEN3550 
3620 PRINTA$;:GOTO3550 


vuoto: Modo implicito (operatori del tipo 
Brk, Cli, Rts, Sei, Dey, Txa, Tya, Txs, Tay, 
Tax, ecc.); 

2) codice di 3 lettere seguito dalla lettera A 
: Modo assoluto (operatori del tipo Jmp 
SCooo, Lda SCooo, ecc.); 

3) codice di 3 lettere seguito dalla lettera B : 
Modo immediato (operatori del tipo Ora 
#$40, Lda #$7F. ecc.); 

4) codice di 3 lettere seguito dalla lettera C : 
Modo pagina zero (operatori del tipo Lda 


SFB, And $oA, ecc.); 

5) codice di 3 lettere seguito dalla lettera D 
: Modo assoluto, X (detto in inglese Abso- 
lute X-Indexed Adressing; operatori del 
tipo Sta SCoio.X ecc.); 

6) codice di 3 lettere seguito dalla lettera E : 
Modo assoluto, Y (detto in inglese Abso- 
lute Y-Indexed Adressing; operatori del 
tipo Lda SCoio.Y ecc.); 

7) codice di 3 lettere seguito dalla lettera F : 
Modo (indiretto,X) (operatori del tipo 


Lda (SCooo,X) ecc.); 

8) codice di 3 lettere seguito dalla lettera G 
: Modo (indiretto),Y (operatori del tipo 
Lda (SCooo),Y ecc.); 

9) codice di 3 lettere seguito dalla lettera H 
: Modo pagina zero.X (operatori del tipo 
Lda $40,X ecc.); 

10) codice di 3 lettere seguito dalla lettera I 
: Modo pagina zero.Y (operatori del tipo 
Sta S4°,Y ecc.). 

È possibile arrestare a piacimento la visua- 
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lizzazione dei dati sullo schermo, premen¬ 
do il tasto Shift. Ciò viene ottenuto me¬ 
diante un Peek alla locazione di memoria 
653 che contiene il flag dei tasti Shift e 
Commodore. Per soste prolungate si potrà 
usare il tasto Shift Lock. 

Si può interrompere in qualunque mo¬ 
mento la visualizzazione della directory o 
di qualsiasi programma, mediante la pres¬ 
sione di un tasto. I programmi in BASIC si 
fermeranno dopo aver completato la linea 
in corso di visualizzazione, gli altri file 
invece, saranno interrotti istantaneamente. 
Il menu principale prevede espressamente 
la funzione di fine lavoro: si consiglia cal¬ 
damente di utilizzare questa e non il tasto 
Run/Stop; in caso contrario rimarranno 
aperti i canali di comunicazione tra drive e 
computer. 


Si sconsiglia altresì di leggere file che non 
siano originati da word processor con la 
funzione “lettere”, in caso contrario si po¬ 
trebbero produrre degli errori che condu¬ 
rrebbero al malfunzionamento della mac¬ 
china. 

Per facilitare il compito a chi ricopia il 
programma (listato 1), consigliamo viva¬ 
mente l’uso della cross-reference di figura 
1, che riporta tutte le variabili utilizzate nel 
programma e la riga in cui appaiono. 

Un ultimo appunto: quando il program¬ 
ma legge una riga BASIC, la cui lunghezza 
sia superiore alla lunghezza fisica della riga 
sullo schermo (cioè maggiore di 80 caratte¬ 
ri), esso va a capo riportando di nuovo il 
numero di linea all’inizio per poi continua¬ 
re col resto della riga. ■ 



L’architettura 
del sistema 

F inalmente, dopo lunghe peripe¬ 
zie, siamo riusciti ad entrare in 
possesso del manuale tecnico de¬ 
llo Sharp, che la ditta importatri¬ 
ce di questo pocket computer ci ha gentil¬ 
mente fatto pervenire; presto sarà disponi¬ 
bile in tutti i negozi, ma per il momento 
esistono in circolazione pochissime copie, 
e crediamo siano in molti ad attenderlo 
ansiosamente. 

Diremo innanzitutto, con un pizzico di 
orgoglio, che tutti i segreti che abbiamo 
“carpito” hanno trovato nel manuale una 
conferma, anzi, noi abbiamo anche trovato 
delle cose in più. 

Il manuale infatti, da una parte soddisfa 
pienamente tutti coloro che desiderano de¬ 
dicarsi al linguaggio macchina, descriven¬ 
do con grande precisione le varie istruzioni 
di disponibili, dall’altra è molto stringato 
nelle spiegazioni relative al firmware: man¬ 
ca completamente un utilissimo disassem¬ 
blato della ROM. 

Comunque, se dovessimo dire che ci dis¬ 
piace mentiremmo, infatti il libro contiene 
tutte quelle utilissime notizie che ci per¬ 
metteranno di proseguire ad analizzare, 
pezzetto per pezzetto, il computer, ma non 
svela proprio tutti i segreti, altrimenti noi 
cosa scriveremmo? 

Vediamo come è strutturata la CPU. 

Consideriamo lo schema generale mos¬ 
trato in figura 1. La CPU (Central Proces¬ 
sing Unit) rappresenta il cuore del compu¬ 
ter. Essa include alcuni registri interni, la 
ALU (Arithmetic Logic Unit), una unità di 
controllo che decodifica ed esegue i pro¬ 
grammi in linguaggio macchina, una pic¬ 
cola RAM usata per i registri ed un sistema 
di stack ed I/O. 

Esternamente la CPU è collegata ad un 
clock a cristallo di quarzo ed a tre bus per la 
gestione dei dati: un bus ad otto bit per la 
trasmissione dei dati, uno a 16 bit per 
l’indirizzamento ed un bus di controllo. 

I dati sono mossi dalla sorgente alla desti¬ 
nazione col bus dei dati, byte per byte; i 
dati possono essere spostati dalla CPU alla 
memoria e viceversa, inoltre possono esse- 


Figura 1 - Lista delle variabili usate dal programma. 

I VfiR. I LINER DEL PROGRRMMfi 

I-1- 

I I 


A 

1 150 

160 

3020 








fi* 

1 150 

250 

260 

300 

360 

370 

380 

390 

400 

410 


1 420 

430 

440 

450 

460 

470 

480 

550 

552 

560 


1 565 

610 

640 

650 

660 

670 

700 

810 

830 

840 


1 900 

1720 

1730 

1820 

1830 

1920 

1930 

2020 

2030- 

2120 


1 2130 

2220 

2230 

2320 

2330 

2420 

2430 

2520 

2530 

2620 


1 2630 

1 3610 

2720 

2730 

3120 

3350 

3380 

3410 

3550 

3590 

3600 

fi*< 

1 690 

1000 









fil* 

1 330 

650 

850 

3360 

3376 

3377 

3380 

3550 



B* 

1 220 

330 

360 

440 

650 

660 

1720 

1730 

2020 

2030 


1 2120 

2130 

2720 

2730 







E1 

1 240 

390 

600 

800 

870 

3340 

3370 




El* 

1 240 

390 

600 

800 

870 

3340 

3370 




E2 

1 240 

390 

608 

800 

870 

3340 

3370 




E3 

1 240 

390 

600 

300 

870 

3340 

3370 




F* 

1 520 

590 

770 

3330 







FL 

1 220 

310 

400 








FT* 

1 330 

460 

470 








H* 

1 3010 

3020 









I 

1 20 

60 

250 

270 

1 0PÌ0 






L 

1 320 

370 

380 

610 

620 

810 

820 

1510 

1540 

1610 


1 1740 

1840 

1940 

2040 

2140 

2240 

2340 

2440 

2540 

2640 


1 2650 

2740 

3350 

3360 







L* 

1 220 

260 









N 

1 660 

730 









OP 

1 840 

1520 

1530 

1540 







ox 

1 1510 

1540 

1730 

1830 

1930 

2030 

2130 

2230 

2330 

2430 


1 2538 

2630 

2648 

2730 

3020 






0X* 1 

1 1510 

1540 

1740 

1840 

1940 

2040 

2140 

2240 

2340 

2440 

1 

1 2540 

2650 

2740 

3010 

3020 

3030 

3040 




p 1 

670 

680 

698 








R* 1 

1420 










R*< 1 

1400 

1410 

1520 

1530 







SL 1 

640 

730 









ST 1 

860 

880 

3390 

3400 

3570 

3580 





T 1 

1410 










T* 1 

530 

540 

F,90 

770 

3330 






U* 1 

1530 

1540 

1550 

1560 







X 1 

7 

3410 

3440 

3450 

3455 






X* 1 

7 

320 

330 








X0* 1 

3410 

3420 

3430 
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I SEGRETI DEI PERSONAL 



Figura 1 - Architettura 
di un sistema 
a microprocessore 
di tipo convenzionale. 



re mandati o ricevuti all’esterno (display, 
stampante, microcassettc, ecc.) tramite la 
I/O interfaccia. 

Il bus a 16 bit viene usato per indirizzare i 
dati e il control bus coordina le varie 
attività del sistema. 

La CPU dirige l’esecuzione di ogni coman¬ 


do: se un dato deve essere spostato o modi¬ 
ficato occorre prima che passi per la CPU. 
Vediamo finalmente come è strutturata la 

CPU del PC-1251. 

Facciamo riferimento allo schema in figura 
ì . Si possono distinguere sia il bus dei dati 
che quello per l’indirizzamento a 16 bit, 


invece non è stato rappresentato il control 
bus, che per altro svolge un ruolo impor¬ 
tante solo per l’hardware del sistema. 

Notiamo che all’interno del microproces¬ 
sore esiste un altro bus di indirizzamento 
dati, che però è a sette bit: serve per indiriz¬ 
zare una piccola RAM interna di 96 byte. 



Figura 2 - 

Una schematizzazione 
della CPU del PC-1251, 
tratta dal Relerence Manual. 
Anche gli Sharp-1250/1250A 
usano una CPU slmile 
e sono strutturati 
in maniera analoga. 
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L’architettura del sistema 


Questa RAM non esiste in altri micropro¬ 
cessori come l’8o8o ed il 6502, ma può 
ricordare vagamente la zero page di quest¬ 
’ultimo. 

Possiamo inoltre vedere rappresentata la 
ALU, che si occupa delle operazioni mate¬ 
matiche e logiche (And e Or), a cui sono 
collegati due flag, cioè registri ad un bit: il 
carry (C) e lo zero (Z). 

Se il risultato di una operazione della ALU 
c zero, il flag Z è posto uguale ad uno c 
viceversa; il carry invece è posto ad uno se 
il risultato di un’operazione causa un ri¬ 
porto. I flag possono essere settati, cioè 
posti uguali ad uno o resettati, cioè azzerati 
anche da programma e molti salti condi¬ 
zionati dipendono dalla condizione in cui 
si trovano questi registri. 

Connesso al bus a sedici bit si nota il regis¬ 
tro DP (Data Pointer). 

Si tratta di un registro estremamente utile e 
comodo perché permette un indirizzamen¬ 
to indiretto dei dati molto semplice. È un 
registro a due byte usato per indirizzare i 
dati nella memoria esterna: ogni operazio¬ 
ne di lettura o scrittura di un dato nella 
memoria esterna usa questo registro. Il DP 
può essere incrementato, decrementato, 
caricato con un valore diretto oppure con i 
registri X e Y. 

A fianco del registro DP c’è il PC (Pro¬ 
gram Counter). Anche questo è un registro 
a 16 bit e contiene l’indirizzo della successi¬ 
va istruzione che deve essere eseguita: l’e¬ 
secuzione di un programma in linguaggio 
macchina è ovviamente sequenziale, ma 
può essere modificata con istruzioni di sal¬ 
to del tipo Goto e Gosub che modificano il 
contenuto di questo registro. 

Tre registri a sette bit vengono invece 
utilizzati per la gestione della memoria 
interna: P, Q e R; mentre P e Q sono 
normalmente usati per indirizzare i 96 byte 
di questa memoria, il registro R viene uti¬ 
lizzato prevalentemente per gestire lo 
stack del sistema, che è posto anch’esso 
nella memoria interna. 

I registri I e J sono ad un byte e vengono 
usati come puntatori per istruzioni riguar¬ 
danti il movimento di blocchi di dati: con 
questo microprocessore è infatti possibile 
spostare con un’unica istruzione un intero 
blocco di dati, cosa che invece richiede 
numerose linee di programmazione in altre 
note CPU come il già citato 6502! 

II registro A è l’accumulatore, usato da 
quasi tutte le più importanti operazioni 
della ALU. 

Il registro B non ha nessuna particolare 
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predisposizione e viene di solito usato co¬ 
me riserva. 

Esistono poi altri due registri a sedici bit, 
X e Y, usati comunemente come puntatori 
per scaricare o caricare un dato dall’accu¬ 
mulatore ad un indirizzo della memoria 
esterna. 

Infine i registri K e L ad otto bit sono un 
po’ per tutti gli usi. 

Oltre a tutti questi registri esiste un regis¬ 
tro specifico per l’I/O, posto agli indirizzi 
della memoria interna 5C, 5D, 5 E e 5F. 
Anche lo stack è posto nella memoria inter¬ 
na, a partire dalla locazione 5B in giù. Il 
registro R punta sempre all’indirizzo più 
alto dello stack. 

I dati possono essere immessi (Pushecl) 
nello stack, oppure estratti (Pulled). Il pri¬ 
mo elemento immesso nello stak è sempre 
nell’indirizzo più basso di questa fila di 
dati, l’elemento inserito più recentemente 
è invece in cima, ed è anche il primo ad 
essere tolto. Lo stack può essere usato 
come una sorta di schedario temporaneo di 
dati o per memorizzare gli indirizzi di ri¬ 
torno da subroutine, cosa che per altro 
viene automaticamente fatta dalle istruzio¬ 
ni Cali e Rtn (Return). 

Siamo così giunti alla fine di questa rapida 
galoppata all’interno della CPU del PC- 
1251: coloro che non si intendono di lin¬ 
guaggio macchina non devono spaventarsi 
anche se hanno afferrato solo una minima 
parte di questo discorso, perché nei prossi¬ 
mi articoli avremo modo di tornare spesso 
su questi argomenti che finiranno per dive¬ 
nire familiari. 

Prima di congedarci da voi qualche piccolo 
commento. 

L’impressione che si ha trovandosi di 
fronte ad un microprocessore così com¬ 
plesso e sofisticato è estremamente favore¬ 
vole: esso dispone di ben 14 registri, di cui 
3 a sedici bit ed anche il set di istruzioni è 
ricchissimo. Anche programmatori ormai 
incalliti come noi non possono lasciarsi 
sfuggire un’espressione di meraviglia di 
fronte ai prodigi della tecnica: in una scato¬ 
letta così piccola c’è dentro tanta roba da 
impressionare. Ci chiediamo solo come 
mai sia stata prevista una RAM così picco¬ 
la, mentre le potenzialità della macchina 
sono ben superiori. 



inFORmimcfl 
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Apple 


Vendo Apple II europlua In perfette condizioni a L. 600.000. 
Telefonare ore pasti. Ugo Rossini • Via Cadore. 31 - 20135 Milano 
• Tel. 02/4553588 


Commodore 


Vendo espansione 16 Kbyte e registratore dedicato per VIC 20. 
Telefonare a: Danilo Bartoli - Via Amendola. 7 - 25086 Rezzato 
(BS) - Tel. 2791586 (ore 19.00 - 20.00) 


Vendo per Commodore 64 programma di contabilità ordinarla: 
prima nota, libro giornale, schede clienti/fornitori e conti di 
reddito: stampa bilancio o situazione clienti/fornitori, il tutto 
automaticamente. Rag. Luciano Usuelli • Via Isonzo, 31 - 21100 
Varese-Tel 0332/242596 


Vendo VIC 20, datasaette, 30 giochi, alcune riviste e libri, tutto in 
ottime condizioni (esiste ancora la garanzia). Tutto a L. 180.000. 
Marilena Fontanesi - Via C. Tenca. 5 - 20124 Milano - Tel. 
02/6594598 


Si è aperto in Campania un club riservato al soli utilizzatori di 
C64. L’iscrizione ò gratuita. Tutti gli iscritti riceveranno ogni 
mese un bollettino ricco di programmi e di trucchi. Ezio Esposito 
- Via Bonea. 1 - 80069 Vico Equense (NA) - Tel. 081/8798584 


Vendo per VIC 20 espansione 8 Kbyte RAM, cassetta game 
"Slrpent” originale, cassetta con 5 game più libro "Alla scoperta 
del VIC 20" e libro con 20 programmi. Il tutto a sole L. 100.000. 
Stefano Bonelli - Via G. Di Vittorio. 7 - 53014 Monteronl D’Arabia 
(SI) 


I Per CBM 64 dispongo di libri, manuali, utility su car- I 
I trldge (Turbo. Fast Copy, Turbo Disco, ecc.). Marcello ■ 
I Cesi - Via Magliana Nuova. 178 - 00146 Roma - Tel. ■ 
■ 06/5266009 ■ 


Vendo VIC 20 (1 anno di vita) più espansione 16 Kbyte modificata 
per duplicare cartucce su nastro. 50 programmi con utility e 
games, super expander a L. 250.000. Tratto solo in Calabria. 
Angelo Lacco - Via Degli Stadi. 80 - 87100 Cosenza - Tel. 
0984/31871 


Vendo VIC 20 più Joystick, "Introduzione al BASIC" parti 1 e 2. 3 
cartridge. registratore a L. 300.000. Roberto Cerotti - Via Bene¬ 
detto Croce. 142 - 52100 Arezzo - Tel. 0575/352982 


Vendo VIC 20 più registratore, joystick, 3 cartucce, molli pro¬ 
grammi in cassetta. 2 libri sul VIC 20. mollissimi listati. Antonio 
Pavan - Via Jacopo Della Quercia. 48 - 35134 Padova - Tel. 
049/612447 


I Vendo VIC 20 più 16 Kbyte, registratore originale, ■ 
H centinaia di programmi, trislot autocostruito a L. ■ 

■ 250.000. Telefonare ora di cena. Alessandro Giolitti • ■ 

■ ViaFabroni. 45 - 50134 Firenze -Tel. 055/473810 ■ 


Vendo VIC 20 più espansione 16 Kbyte, super expander. cartuc¬ 
cia machine code language. cartucce di giochi e nastro di pro¬ 
grammi a L. 350.000. Riccardo Bozzi - Via Risorgimento. 90 - 
20092 Cinisello Balsamo (MI) - Tel. 6128851 


Compro per C64 schede aggiuntive di ogni tipo. Ferruccio Can¬ 
tone - Via Genova. 18- 10076 Noie (TO) - Tel. 011/9297125 


Cambio più di 1.500 programmi per C64. Rispondo solo a chi 
vuole scambiare. Scrivi anche se non possiedi molti programmi, 
potresti avere quello che fa per me. Bruno Castelnuovo - Via S. 
Antonio. 3 • 23020 Montagna in Valtellina (SO) - Tel. 0342/380234 


■ Vendo Commodore 64 più floppy disk, registratore a 

■ nastro, stampante, vari testi, linguaggi, diversi pro- 

■ grammi gestionali e giochi. Telefonare ore ufficio. 

■ Mauri Renato - Via Manzoni. 1 - 20060 Zibido 

■ S.Giacomo (MI) - Tel. 9003105 


Cambio programmi per C64, C16 e Plus/4. Dispongo di numerosi 
manuali. Cerco anche routines grafiche per MPS-802. Richiede¬ 
re liste a: Gerardo Marra - Via P. Baratta. 91/A - 84091 Battipa¬ 
glia (SA) - Tel. 0828/23130 


Cerco programma Fortran per CBM 64. Cambio con programma 
a scelta tra The Last One. Logo ed altri. Telefonare ore pasti 
(solo zona Milano). Luca Candaten - Via Senigallia. 11 • 20161 
Milano - Tel. 02/6468851 


Vendo CBM 64 più floppy, datassette, monitor colore. 4 libri, tutto 
il miglior software esistente su dischetti; tutto come nuovo, 
usato pochissimo, disponibile per dimostrazioni a L. 1.600.000. 
Luigi Callegari - Via De Gasperi, 47 - 21040 Sumirago (VA) - Tel. 
0331/909183 


Attezione! Causa passaggio a CBM 64. vendo VIC 20 più regi¬ 
stratore, libro "Alla scoperta del VIC 20". due cassette gioco a 
sole L 200.000 trattabili. Tutto in ottimo stato (comprato nel 
Gennaio 1985). Contatto tutta Italia. Per informazioni scrivere a: 
Gennaro Pinto - Via Seripando, 28 - 64100 Salerno 


Vendo al miglior offerente Commodore CBM 4032 più dual drive 
4040, il tutto in perfette condizioni e con molti programmi. Dott. 
Lucio Crippa - Via F. Nullo. 5 - 20035 Lissone (MI) - Tel. 
039/481485 


Cambio 30 vldeogames per C64 (One On One, Fort Apocalipso, 
Wimbledon, Mundial Soccer, ecc.) per Tot 13 o Magic Desk più 
Easy Script. Per contatti scrivere o telefonare. Salvatore Argon- 
dizza - Via S. Francesco. 45 - 87060 S.Giorgio Albanese (CS) • 
Tel. 0983/86112 


Vendo Commodore 64 più registratore, drive 1541, stampante 
MPS802, 180 magnifici programmi, manuali vari, tutto come 
nuovo con imballi originali a L. 1.600.000 o separatamente. 
Massimo Proia - Via Pubblico Passeggio. 16 - 29100 Piacenza 
(PC)-Tel. 0523/32417 


Vendo VIC 20 accessoriatissimo: Eprom. Motherboard. 3 Kbyte 
S.E.. registratore, tight pen, libri riviste, software LM; il tutto a 
sole L. 450.000 trattabili. Telefonare ore pasti. Massima serietà. 
Silvio Cappelli • Via Milano. 19 - 19100 La Spezia - Tel. 
0187/36600 


Vendo VIC 20 più espansione 16 Kbyte più 3 cartucce (VIC- 
Avenger, Dragonfire. Sargon II Chess), tante cassette; il tutto a 
L. 180.000. Rivolgersi ore serali a: Marco Della Sala - Via France¬ 
sco Ferralroni, 41/7 - 00172 Roma - Tel. 06/288472 


Sono da poco un possessore di CBM 64 e sono molto Interessalo 
all'acquisto di programmi su nastro: utility, giochi e programmi 
vari. Prego Inviarmi vostre liste. Pasquale Martire - Via Emanue¬ 
le Carnevale. 1 - 90145 Palermo - Tel. 091/56393 


Sinclair 


Cerco Sinclair ZX80 con vecchia o nuova ROM e schema elettri¬ 
co dello ZX80. Telefonare solo tra le 12.30 e le 13.00 o tra le 19.30 
e 20.30. Aldo Vendramin - Via Chiaradia. 3 - 33077 Sacile (PN) - 
Tel. 0434/733139 


Disponendo di 1.200 programmi per ZX Spectrum cerco utenti 
disposti allo scambio Spectrum • Commodore 64. Annuncio 
sempre valido. Alfredo Trifiletti - Via Fiume, 20/A - 71100 Foggia - 
Tel. 0881/75385 


Vendo ZX Spectrum 48 Kbyte più 100 programmi, interfaccia 
joystick programmabile a L. 350.000 trattabili, inoltre vendo 
programmi per Apple Ile - Il plus. Stefano Sparvoli - Via Passo 
Rollo. 53 - 20134 Milano - Tel. 2151496 


Causa passaggio a sistema superiore vendo agli "apprendisti" 
di BASIC Sinclair ZX81 più alimentatore, manuale, espansione 
16 Kbyte. programmi su cassetta a sole L. 70.000! Scrivere o 
telefonare. Antonello Carbone - Via Adone. 5 - 95040 S.G. Gaier¬ 
mo (CT) - Tel. 095/393046 


Vendo Spectrum 48 Kbyte a L. 300.000; 350 programmi L. 
150.000; interfaccia joystick L. 50.000; registratore L. 50.000. In 
blocco o separatamente; telefonare ore pasti, solo zona Roma, 
Giuseppe Fasulo - Via F. Borni, 5 - 00185 Roma - Tel. 7577351 


Vendo Spectrum 48 Kbyte con manuali, registratore, libro pr LM, 
2 libri di grafica, tight pen, cassette giochi, giornali. Acquistato 
nel Dicembre 1984. tutto in ottime condizioni a L. 400.000. Mauro 
Pavone * Via Capecelatro. 30 - 20148 Milano Tol. 02/4076702 


Vendo Sinclair ZX80 a L 100.000. Andrea Roidi - Viale Augusto. 
105 - 80125 Napoli - Tel. 081/616837 


Quantum Leap User Club cerca nuovi soci In tutta Italia. Iscrizio¬ 
ne gratuita. Abbiamo già a disposizione libri, software e tanti 
consigli e idee. Roberto Ghezzi - Via Volontari Del Sangue. 202 - 
20099 Sesto S. Giovanni (MI) - Tel. 02/2485511 











































Vondo box, disk drive, disk controller, disk manager. Il lutto 
garantito, per L. 1 500 000 non trattabili. Solo zone di Milano. 
Bergamo. Lecco Telefonare di domenica Carlo Aceli - Via I 
Maggio. 4 - 92050 Verderio Inferiore (CO) - Tel 039/510715 


Vondo Sega SC-300018 Kbyle espandibili, alimentatore stabiliz¬ 
zato, cavetti, manuale d'istruzioni, cartuccia BASIC. Star Jaker, 
Congo Bongo. 2 joystick semiprolessionali a L 350.000 (valore 
effettivo L 750.000) Marco Monlga - Via Collecchio, 16/8 - 20148 
Milano - Tel 02/395140 


Vendo per N E Z80 o Micro Oosign configuraziono CP/M le 
schede aggiuntive "Computer Parlante” e "Grafica Sovrappo¬ 
sta" con relativo software. Eseguo schede personalizzate. Mar¬ 
co Sudetti - Via Martiri dello Libertà. 52 -10040 Borgaretto (TO) - 
Tel 3580200 


Vendo Sega SC-3000 32 Kbyle ancora In garanzia, perfetto, con 
circa 150 programmi a L 35 000 non trattabili Guglielmo Nerve- 
gna - Via Risorgimento. 273 - 47100 Forlì - Tel. 0543/84006 


Compro hardware rotti, danneggiti, Inutilizzabili, dei più cono¬ 
sciuti home computer. Annuncio sempre valido. Gian Luigi Cal¬ 
zolaro - Via M. della Benedici, 3/12 - 16010 Rossiglione (GE) - 
Tel. 010/925447 


Vendo Apple compatibile orientato alla grafica, completo di 
monitor, drive, video digitizer con telecamera, stampante e 
moltissimo software. Occasione d'oro. Tri • S Polo 1674 30125 
Venezia • Tel. 041/32382 


Per Sharp MZ-731 I seguenti programmi: Matematica 1. 2. 3 - 
Spese Casa - Master Mlnd - Tris - Tombola - Totocalcio - Atter¬ 
raggio - Attacco Aereo - Il Guardiano del Te. Scrivere per Infor¬ 
mazioni. Nicola Bellettier! - Via A. Righi. 34 - 50047 Prato (FI) - 
Tel 0574/583039 


Vendo Alari 2600.2 joystick. 7 cartucce: Space War. Slot Racers 
(Labirinto). Outlaw (Cow Boy). Potè Position. Enduro Tutto in 
buone condizioni a L 500.000 Telefonare ore 14-15/20-21). San¬ 
to Torrisl - Vicolo Castro. 15 - 95100 Catania - Tel. 095/347703 


Notate che i listati contengono "parole" racchiuse tra parentesi graffe { } . Tali parole rappresentano 
caratteri di controllo come mostrato nel sottostante riquadro. Se sono precedute da un numero, questo 
indica il numero di volte che quel tasto deve essere premuto. Se il simbolo è sottolineato deve essere 
premuto contemporaneamente a SHIFT mentre se è racchiuso da [ < > ] deve essere premuto contempora¬ 
neamente al tasto COMMODORE. Inoltre, se tra parentesi si trova un carattere alfabetico "solitario", questo 
dovrà essere premuto contemporaneamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto più agevole copiare i listati senza faticose e dubbie interpretazio¬ 
ni di caratteri grafici e di controllo di cursore o dei colori. 


Quando leggete: 

Premete: Vedrete: 
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Desidero comunicare con possessori di Smcfair OL per scambio 
Informazioni, chiarimenti, ecc. Ulderico Guadagno - Via Tito 
Livio.95 - 00136Roma-Tel 06/3492694 


Vendo ZX Spectrum 48 Kbyte più alimentatore stabilizzato, 
stampante Alphacom 32. numerosi programmi, tutto a L 
450 000. Telefonerò oro pasti. Giuseppe Plngltore - Corso G 
Nicotera. 137 - 88046 Lamezia Terme (CZ) - Tol 0968/23816 


■ Compro, cambio software per OL Richiedere e/o in- ■ 

■ viare lista Andrea Galli • Via Palagetta. 212 • 50017 ■ 

■ S Piero a Ponti (FI) ■ 


Texas 


Vendo SSS Extended BASIC per TI 99/4A più manuale, corso su 
cassetta a L. 170.000. 3 cassette TI 99 Newsoft a L 20.000; 4 
cassetto originali Texas Instruments a L 35 000 (valore L. 
70 000); cavetto registratore a L 10.000. Giampaolo Badiali - Via 
C. Pisacane. 12 - 60033 Chlaravalle (AN) - Tel. 071/946311 


I Compro Mlnlmemory SSS più cassetta Lines, Sintetiz- ■ 

■ zatore Vocale. Terminal Emulator solo se totalmente ■ 

■ funzionanti e convenienti Tratto con le zone di Torino ■ 

■ e Milano. Telefonare ore serali, dopo le 19.00 Nicola ■ 

■ Passalacqua-Via Onorato Vigliani. 15/4-10135 Torino ■ 

■ -Tel. 011/6192252 ■ 


Vendo TI 99/4A, box disk controller TI, Extended BASIC, TI Logo; 
SSS dati pers.. statistica, scacchi, aiuto programmazione; SSS 
didattici ed aritmetici; manuali, accessori a L. 500 000 trattabili 
oppure separatamente Agostino Micheloni - Via A Provolo. 20 - 
37123 Verona - Tel 045/21419 


Cerco modulo Extended BASIC per Ti 99/4A Possibilmente con 
manuale d'uso Giovanni Arcadi - Via Enrico Fermi. 7 - 89048 
Siderno (RC) - Tel. 0964/341461 


Compro per TI 99/4A modulo SSS Soccer ad un prezzo trattabile 
ed inoltre cambio un sacco di giochi, veramente belli, sia su 
nastro che listato Scrivetemi presto e a tutta forzai Claudio 
Fameli - Via Leopoldo Bignone. 27/5 - 16157 Ge-Pra (GE) - Tel 
010/663998 


Compro per TI 99/4A coppia di joystick. Inoltre possiedo un TI 
99/4A non funzionante Cerco laboratorio per eventuale ripara¬ 
zione. Chi può fornirmi indirizzi utili mi scriva. Luigi Garofoli - 
Via Ospedale. 29 • 60011 Arcevia (AN) 


Per TI 99/4A compro Interfaccia RS232 perfettamente funzionan¬ 
te. Scrivere o telefonare ore serali. Alessandro Caroli • Corso 
Dante. 35 • 12100 Cuneo • Tol 65265 


Compro manuale per Extended BASIC scritto In Italiano. Massi¬ 
miliano Bruno Ventre • Via De Galboli. 7 - 28100 Novara - Tel 
0321/478356 


Varie 


Per Olivetti M20 vendo proramma di word proceselng con molte 
funzioni fatto da me Dispone anche dell incofonnamento dei 
testi automatico Telefonare ore pomeridiane a. Antonio Moro - 
Via A De Gasperi. 5G - 36022 Cassola (VI) - Tel 0424/83027 


Vendo MPF II 64 Kbyte RAM, Applesoft compatibile, imballo 
originale con vari programmi, linguaggi Applesoft e M. BASIC, 
manuali, a L 300.000 Umberto Torrini • Via Bolognese. 57 - 
50139 Firenze - Tel 055/474836 


Vendo consolle Intellevlslon. computer Lucky completo di adat¬ 
tatore o trasformatore. 12 cassette fra cui Nova Blast. Soccer. 
Scooby Doo's a L. 600.000 trattabili. Luca Bruscoli - Via Arno. 9 - 
30026 Portogruaro (VE) - Tel 0421/72956 


Guida per l'input dei programmi versioni VIC 20 e C 64 
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La biblioteca per ragazzi 
firmata 



lan Graham 

GIOCHI CON 
IL COMPUTER 

Il libro, parta di giochi con il compu¬ 
ter. una volta tanto visti dalla parie 
dei computer, e non dell utente 
In particolare spiega, in modo sem¬ 
plice ma preciso, come la il compu¬ 
ter a giocare, come fa a produrre im¬ 
magini e suoni durante il gioco e co¬ 
me la (in genere!) a vincere 
Cod. 006D Pag. 48 Lire 9.000 

Brian Reffin Smith 

IMPARIAMO 
A PROGRAMMARE 

Il libro fornisce le conoscenze essen¬ 
ziali per incominciare a programmare 
in BASIC su di un personal com¬ 
puter. 

Cod. 0180 Pag. 48 Un 9.000 


PRIMI PASSI 
IN BASIC 

Il libro propone l'apprendimento del 
linguaggio BASIC tramite lo studio e 
l'esame dettagliato di programmi già 
scritti. 

Cod. 0070 Pag. 48 Un 9.000 

Tony Potter - Ivor Guild 

I ROBOT 

Dopo una rapida panoramica su che 
cosa può fare un robot, il libro pre¬ 
senta una serie di robot con funzioni 
particolari: i robot a braccio, i robot 
operai, i robot nello spazio, etc. 
Affronta poi il problema di come un 
robot può essere programmato e 
controllato da un computer, e di co¬ 
me praticamente si realizza un robot. 

Cod. 0030 Pag. 48 Un 9.000 


Judy Tatchell - Bill Bennett 

CONOSCERE 
IL PERSONAL 

il libro spiega che cosa si può fare 
con un personal computer, come si 
usa e come funziona. 

Cod. 0080 Pag. 48 Un 9 000 

Lynn Minng - lan Graham 

RIVOLUZIONE 

INFORMATICA 

Il volume è rivolto in particolare ai 
bambini, ma anche a tutti coloro 
che, presto o tardi, verranno coinvol¬ 
ti dalle nuove tecniche informatiche 
più come utenti che come operatori. 
Cod. 0040 Pag. 48 Lire 9.000 
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